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SEQ 0001 


ABSTRACT 


** The program will run on non=switch register CPU types ** 


This program is an acceptance test of the VT105 video terminal. 
The program consists of 19 test patterns displayed on the VT105 
screen. Each pattern requires operator inspection for error 
detection. A description of the correct visual display for each 
test can be found in section 9. 


The program is capable of handling multiple VT105's in a 
sequential Di+11 fashion, however: 


REAR EARAAREREREREERAEEKEERERKKEEKEKEKE 


ONLY ONE VT105 IS TESTED AT ONE TIME. 


SRE EEAAEREAARERKEEEEREKEEEEKEK 


REQUIREMENTS 


Equipment 


PDP=11 family computer with 9K of memory. 
VT10S5 VIDEO GRAPHIC TERMINAL 
DL-11 TYPE SERIAL INTERFACE 


Storage 
Th*s program LOADS IN’? 4K BUI uses 9K of memory. 


LOADING PROCEDURE 


Procedure for normal binary tapes should be followed. 





4.0 STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
STANDARD PDP=11 Format 


Loop on CURRENT Test 

Inhibit Program Sub-Test Delay 

FORCE ASPECT RATIO VIA Sw 10 

VT55 (RECTANGLE) RATIO 

VT105 (SQUARE) RATIO 

L on Test in SWR <4:0> WHEN EXECUTED 
Keyboard Control of the Test 

<SwW 8 AND SW 7 = 1 is INCORRECT> 


4.2 STARTING ADDRESS OR ADDRESSES 


200 is the starting address of the Acceptance Test 
204 is the restart address of the Acceptance Test . 
210 is the special starting address for VT105 Production 


SA 200 


SA 204 
SA 210 


INFORM THE OPERATOR OF THE PROGRAM NAME, REQUEST DEVICE 
BUS ADDRESS IF NON-SWITCH REGISTER CPU, AND THEN RUN THE TEST. 
USE THE SAME DEVICE BUS ADDRESS AND RUN THE TEST. 

USE THE DEFAULT BUS ADDRESS AND SHORTEN THE SUB-TEST DELAY. 





5.0 OPERATING PROCEDURE 


THE VT105 SHOULD BE INITILIZED TO ‘‘ASCII'' MODE. WHEN RUNNING ON 
A NON-VT105 OR A VT105 ASCII MODE CONSOLE, THE OPERATOR MAY NOTICE 
THE FOLLOWING CHARACTERS ARE TYPED ‘'?'', "2 AND A LOWER CASE ‘L"’. 
THESE ARE THE CODES TO SWITCH INTO ASCII MODE. 


Once started, the test will run in its normal manner without 
operator intervention or switch changes. 


This program allows the operator two modes of test pattern 
selection. These modes are selected by the state of SW 07 at the 
ve be yem of the program. When SW 07 is a zero, the program is 
r switch register control for test pattern selection. If 
SW 07 is equal to a one, the aie Ag is under keyboard control of 
the test pattern selection. In this mode the operator will be 
required to type in on the Console TTY the first and last octal 
base address of the DL-11's to which VT105"s are connected. 
THE PROGRAM WILL USE THE DEFAULT IF A ‘‘CR'' IS TYPED. 


Keyboard control is assume! ** running on a switch register less 
CPU type (i.e., 11/04 LSI-11). 


In the otto. Select Mode, two characters are used to select 
“STARTING WITH’’ or “LOOPING ON’' a particular test pattern by 
"\'' respectfully. 


The *'/*' key is used to suspend the current test and ask the 
operator at which test pattern he/she wishes to start. The 
operator now depresses the letter which represents the test 
pattern to be started with. Refer to the program Listing table 
of contents for the test letter of each pattern. 


The *\"’ key is used to suspend the current test and ask the 
operator which test pattern he/she wishes to loop on. The 
operator now depresses the letter of the test to loop on. 


If during the execution of a test pattern, a key is depressed and 
SW 07 equals a zero, THE CHARACTER WILL BE IGONRED. 

If SW 07 equals a one, and the character received was not a 

‘7* or ‘N'", IT WILL BE IGNORED. The codes ‘X-OFF'’ and 

*X-ON’' are the only exceptions. 


CHANGING THE SOFTWARE SWITCH REGISTER, THE OPERATOR MUST FIRST 
TYPE *'/*' OR ‘\"", THESE KEYS WILL SUSPEND THE CURRENT TEST AND 
ENSURE THE VT105 IS IN A NON-GRAPHIC MODE. THE OPE 
TYPE “CTRL G’* TO CHANGE THE SWITCH REGISTER. OMPLETI 
THE SWITCH CHANGE, THE PROGRAM WILL RETYPE THE PROMPT HEADER MESSAGE. 





NO HARDWARE ERRORS ARE REPORTED. 


7.0 MISCELLANEOUS 


UNLESS USING THE DEDICATED HARDWARE TESTER, Only one VT105 
can be tested at one time. 


Execution Time 

Execution time will vary with the ‘BAUD'’ rate. 

Device Address Program Locations 

The location ‘$SBASE’’ contains the first DL11 address if 
several VT105's are being tested. The default is the Console 
address <177560>. The location ‘LAST’ contains the last DL11 


address if several VT105's are being tested. Location VTNOW 
contains the current DL11 base address. 


THE LOCATION i =_ THE TESTER’S FIRST ADDRESS. THE 


DEFAULT VALUE IS 17 

*NOTE: If these locations are changed, the operator must 
start the test again at Loc. 200. The ee ee will use the 
base address to update the actual program values. 


Program is chainable under XXDP/ACT-11. APT Hooks have been 
provided but not tested. 


8.0 RESTRICTIONS 


UNLESS USING THE DEDICATED HARDWARE TESTER, ONLY ONE VT105 
CAN BE TESTED AT ONE TIME. 





Growing Horizontal Line (A) 


The correct visual display will be a single horizontal Line 
extending the entire width of the screen placed at base zero of 
the screen. Another horizontal line will successively appear 
giving the impression of a growing horizontal line, until the 
entire screen has been filled. Then the first line at the base 
of the screen will be removed, followed by each successive Line 
until the entire block has disappeared. 


Growing Vertical Line (B) 


The correct visual display will be a single vertical Line 

extending the entire height of the screen and placed at the far 

right side of the screen. Another vertical line will 

successively appear, giving the impression of a growing vertical 

Line right to left, until the entire screen has been filled. Then 
the first Line at the right will be removed, followed by each 

successive line until the entire block has disappeared. 


Stepping Horizontal Line for Graph 0 (0) 


The correct visual display will begin with a single horizontal 
Line apeeer 9 near the center of the screen and extending the 
fe) 


entire width the screen. Then a_ second horizontal Line 
halfway between the first Line and the base of the screen will 
begin to grow from the left side of the screen. As_ this line 

rows, the first line disappears and you're left with a single 

rizontal line about one fourth the way up the screen. Then 
another Line begins to grow from the left, halfway between the 
previous line and the base of the screen. As this one grows the 
previous line is removed. This procedure continues for a total 
of eight times. 


Stepping Horizontal Line for Graph 1 


Same as 9.3 except Graph 1 is enabled. 





9.5 Different Data on Graph 0 and 1 (E) 


9.6 





GRAPH 0: 


The correct visual display will begin with the appearance of a 
horizontal line extending the entire width of the screen placed 
at the base zero. As this line is removed from the left to 
right, a diagonal Line, beginning at the left bottom corner, 
begins to grow until it reaches the top of the screen. At this 
point a second diagonal Line begins to grow ‘p from the base Line 
about in the middle of the screen. This Line continues to grow 
up until it reaches the top of the screen. 


GRAPH 1: 


Then a horizontal Line reappears at base zero of the screen 
extending the entire width of the screen. Now a diagonal Line 
beginning at the top of the left corner of the screen gins to 
decay downward as the base horizontal line disappears. It 
continues until it reaches the base line of the screen when a 
second diagonal Line begins to decay downward from the top middle 
section of the screen and continues until it reaches the base 
line of the screen. The end result should be two large X's 
filling up the entire screen (XX). 


Display a Stepping Histogram Line on Graph 0 (F) 


The correct visual display will — with the appearance of a 


horizontal line at base zero on the screen. Then a Line hal fway 
up the screen will begin to grow from the left side of the screen 
with all the area between the two lines shaded. This shaded area 
will continue to grow until it reaches the far right side of the 
screen. Then a Line which bisects the shaded area begins to grow 
from the left side. As this line grows it removes the shaded 
area above it, continuing until it reaches the right side of the 
screen. The shaded area 1s then cut in half again and again 
until a single horizontal line remains. 


Display a Stepping Histogram Line on Graph 1 
Same as 9.6 except Graph 1 is enabled. 


; 8 
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9.8 Histogram on Graph 0 and 1 (H) 


The correct visual display will follow the same pattern as the 
visual display for Graph 0 and 1, except that as each diagonal 
Line grows, a triangular shaded area grows under it. The final 
result should consist of four overlapping right triangles, two 
with the right angle on the right bottom of the screen (made by 
the diagonal lines which started from the bottom left) and two 
with the Tt angle on the left bottom of the screen (made by 
the diagonal Lines which started from the top left). 


Cursors on Graph 0 (I) 


The correct visual display will begin with a single horizontal 
Line extending the entire length of the screen placed at base 
zero. A diagonal Line will then gin to grow from the bottom 
left corner as the base horizontal line is removed. It continues 
to grow until it reaches the top of the screen when a _ second 
diagonal Line begins to grow from the bottom of the middle of the 
screen. This Line continues to grow as the base horizontal Line 
continues to be removed. When the diagonal Line reaches the top 
of the screen a square of cursors grows at the base of the first 
diagonal line. It is followed by another square, eventually 
giving the appearance of a staircase. This procedure is repeated 
on the second diagonal Line and when the last square is done, the 
entire procedure is reversed. Each square is _ successively 
removed starting at the top of the second diagonal Line, 
continuing down it, then starting at the top of the first 
diagonal Line and going down it. ‘ 


Cursors on Graph 1 (J) 


The correct visual display will be almost identical to that of 
the cursors on Graph 0. The only difference is that the two 
diagonal lines begin at the top left of the screen and go down 
towards the right. , 





9.11 


9.12 


9.13 


9.14 


J ¥ 
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Starting Coordinate on Graph 0 (K) 


The correct visual display ie ~ ae with a single horizontal 
line extending the entire width of the screen placed at base 
zero. A dia L Line will then begin to decay from the top left 
corner as the horizontal line disappears. It continues to deca 

until it reaches the bottom of the screen when a second diagona 

Line begins to decay from the top of the middle of the screen. 
This Line continues to decay as the horizontal line continues to 
disappear. When the second diagonal line reaches the bottom of 
the screen, a small section of the horizontal line should still 
be visible. At this point a dotted sine curve begins to apr. 

from the right edge. As it grows upward the diagonal line is 
removed. As the sine curve reaches its peak, the second diagonal 
Line begins to disappear. The line continues to disappear as the 
sine curve rounds the peak and starts downward. Then the sine 
curve grows upward again and the first diagonal line begins to 
disappear as the curve reaches its peak. The sine curve 
continues to grow until four complete cycles have been formed. 


Starting Coordinate on Graph 1 (L) 
Same as 9.11 except Graph 1 is enabled. 


GRAPH ASPECT RATIO AND INTERACTIVE TEST ENABLE (M) 


THE PURPOSE OF THE TEST IS TO VERIFY OPERATION OF THE INTERNAL 
INTERACTIVE TEST AND ASPECT RATIO LOGIC. THE VISUAL DISPLAY 


PATTERN IS GENERATED BY ENABLING THE INTERNAL INTERACTIVE TEST LOGIC. 
THE VISUAL DISPLAY CONSISTS OF TWO SECTIONS. THE FIRST IS WITH VT55 


ASPECT RATIO. ONE HISTOGRAMED TRIANGLE ON THE LEFT SIDE AND A 
VERTICAL RECTANGLS ON THE RIGHT SIDE SHOULD APPEAR. 
WITH THE SECTION SECTION, THE VT105 ASPECT RATIO IS ENABLED. 


THE HEIGHT SHOULD REMAIN NEAR CONSTANT BUT THE WIDTH SHOULD CONTRACT. 


CHARACTER ASPECT RATIO (N) 


The correct visual display consists of twelve rows of the letter 
"H’’ with a blank Line separating each of the rows. Then twelve 
horizontal lines are displayed, starting at the bottom and 
overlaying the rows of H's touching the bottom of the H's. Then 
forty-one vertical lines are displayed, foeus tine in a 
checkerboard over the twelve rows of H's. The first vertical 
Line is placed through the middle_of the first row of H's. Each 
successive vertical line is 13 points to the right of the 
previous Line. 


SEQ 0009 
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9.15 BASELINE ON HISTOGRAM 0 (0) 


9.16 


9.18 


9.19 


THE CORRECT VISUAL DISPLAY WILL BEGIN WITH TWO ACCENDING SHADED 
HISTOGRAMED RIGHT TRIANGLES ON GRAPH 0. NE FOR GRAPH 0 


BASE LI 
IS THEN ENABLED. THE CONTENTS OF THE BASE REGISTER IS Is mate sen: 


THE HISTOGRAMED LINE WILL TERMINATE AT THE BASE LINE VALUE. 

THE PLOTTED POINT IS LESS THAN THE BASE REGISTER VALUE, THE 
HISTOGRAM LINE WILL ASCEND TO THE BASE REGISTER VALUE. THE BASE 
REGISTER IS INCREMENTED TO MAXIMUM VALUE AND THEN DECREMENTED 
TO THE VALUE OF ZERO. THE OPERATOR SHOULD OBSERVE A SMOOTH 
MOVEMENT OF THE PLOTTED HISTOGRAM LINES. 


BASE LINE ON HISTOGRAM 1 (P) 
SAME AS 9.15 EXCEPT GRAPH 1 AND BASELINE 1 ARE ENABLED. 


STRIP CHART ON GRAPH 0 (Q) 


THE START OF THE CORRECT VISUAL DISPLAY WILL BE THE APPEARANCE 
OF TWO ACCENDING RIGHT TRIANGLES ON GRAPH 0. THE TRIANGLES ARE 
DISPLAYED WITH STRIP CHART O ENABLED BUT THE TRIANGLES SHOULD 
START ON THE LEFT EDGE OF THE SCREEN. WHEN THE SECOND TRIANGLE 
HAS BEEN DISPLAYED, THE PROGRAM WILL CHANGE THE PATTERN TO THAT 
OF A ‘SINE WAVE’. THE VT105 SHOULD STRIPCHART THE ‘‘SINEWAVE"’ 
ACROSS THE SCREEN FROM RIGHT TO LEFT. THE OPERATOR SHOULD 
OBSERVE A SMOOTH MOVEMENT FROM RIGHT TO LEFT. THE INITIAL TWO 
TRIANGLES SHOULD STRIPCHART LEFT OFF THE SCREEN. 


STRIP CHART ON GRAPH 1 (R) 
SAME AS 9.17 EXCEPT GRAPH 1 AND STRIPCHART 1 ARE ENABLED. 
DUAL STRIP CHART MODE (S) 


THE CORRECT VISUAL DISPLAY PATTERN arete BEGIN WITH SUAL STRIP 
CHART IS ENABLED. A TOTAL OF TEN HISTOGRAMED ‘'SINE 


SWING. WHERE THE TWO WAVEFORMS OVERLAP, THE INTENSITY WILL BE 
BRIGHTER. THE OPERATOR SHOULD OBSERVE A SMOOTH MOVEMENT AND 5 
VARIATIONS OF INTENSITY. NO VISUAL LINES PAST THE LEFT EDGE OR 
RANDOM DOTS PAST THE RIGHT EDGE SHOULD APPEAR. 


SEQ 0010 
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BASIC DEFINITIONS 
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STARTING ADDRESS(ES) 
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| peer THE COMMON TAGS 
DISPLAY A GROWING HORIZONTAL 9 yi 


INE 
INE 
GRAPH 0 AND 1 


0 DISPLAY A STEPPING HISTOGRAM L 


L 
GRAPH 1 DISPLAY A STEPPING HORIZONTAL L 
I 
1 DISPLAY A STEPPING HISTOGRAM LI 
GRAPH 0 AND 1 


NE 
NE 
CURSORS ON GRAPH 1 

TEST STARTING COORDINATE ON GRAPH 0 


TEST STARTING COORDINATE ON GRAPH 1 
ASPECT ort kates INTERACTIVE TEST ENABLE 


- 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
0 
P 
Q 
R 
Ss 


2 DUAL STRIPCHART MODE 
END OF PASS ROUTINE 

ASCII MESSAGES 

TTY INPUT ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 
APT COMMUNICATIONS ROUTINE 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SCOPE HANDLER ROUTINE 

TYPE ROUTINE 

BINARY TO OCTAL (ASCII) AND TYPE 
TRAP DECODER 

TRAP TABLE 

POWER DOWN AND UP ROUTINES 
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TITLE CZVTNA_ VT105 ACCEPTANCE TEST 
:*COPYRIGHT (C) 1978 

;*DIGITAL EQUIPMENT CORP. 

samy NARD, MASS. 01754 


: sPROGRAM BY R. SHOOP 
a 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


*SBTTL BASIC DEFINITIONS 

z*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK= 1100 

-EQUIV EMT,ERROR 7sBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT,SCOPE 3;BASIC DEFINITION OF SCOPE CALL 


npc | emma DEF INI TIONS 


PRB LLL LPL Fh 


FOR wy TAB 


E RETURN 
000200 R 200 : E FOR CARRIAGE RETURN-LINE FEED 
177776 * PROCESSOR STATUS WORD 


177774 3;STACK LIMIT REGISTER 

177772 3;PROGRAM INTERRUPT REQUEST REGISTER 
177570 3 sHARDWARE SWITCH REGISTER 

177570 DDISP= 177570 3 sHARDWARE DISPLAY REGISTER 


3 *GENERAL PURPOSE REGISTER cenee neat 
RO= x0 RAL R 


R1= 
R2= 
R3= 
R4= 3:GENERAL REGISTER 
R5= 3:GENERAL REGISTER 
R6= 2 GENERAL REGISTER 
R7= : GENERAL REGISTER 
PC= PROGRAM COUNTER 


;*PRIORITY LEVEL DEF INI TIONS 
PRO= 0 OR 


NOUESWN—O 


 EPRIORITY 
3*" ‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
SW15= 100000 
SwW14= 40000 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


hh he ae ee  _ atti) 


Fe tae te an tan tn an a ae ean a a a ae a ae a, a a a, a a a a Lae a ae eee eee eee eee 
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B1T00,B1T0 
;*BASIC ‘'CPU'’ TRAP VECTOR ADDRESSES 


ee ee me ee ee ee ee ee ee ed ed ek ed ed ed ed od od 


~ 
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CZVTNA.P11 


BASIC DEFINITIONS 
ERRVEC= 


PI ROVE C=240 


ABASE=177560 
ACDW1=176500 


TIME OUT AND OTHER ERRORS 
Ea? | AND ILLEGAL INSTRUCTIONS 


3; TRACE T 

iS BREAKPOINT. TRAP (BPT) 

33 INPUT/OUTPUT TRAP (IOT) **SCOPE** 

;sPOWER FAIL 

: sEMULATOR TRAP (EMT) **ERROR** 
+0 ear TRAP 


<OTTY KEYBOARD VECTOR 


ty PRINTER VECTOR 
3;PROGRAM INTERRUPT REQUEST VECTOR 


; TESTER STARTING ADDRESS 


SEQ 0014 
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-SBTTL TRAP CATCHER 


_ 
oo 


=0 
:*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN f. ‘'.+2,HALT'' 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERR UPTS 
#LOCATION, Q CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


3SOFTWARE DISF AY REGISTER 
E WORD 0 3SOFTWARE SWI1CH REGISTER 
SBTTL START ING tain tak 
JMP @ABEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
JMP RBEGIN ; JUMP TO RESTART ADDRESS 
JMP BEGIN2 ; JUMP TO ADJUSTMENT PATTERN 


.=176 
200 


St ae tt i ee, te 
a ed ot ws 2 2d I I 
eee eee ee ee ae 


-SBTTL ACT11 HOOKS 


AAA OSI IIIS IIISIIIOIIIIUIIOI IOI IOI IOI IOI I TOT TTT TOT TOT TTT 
“HOOKS REQUIRED BY ACT11 
a SAVE PC 
SENDAD 321)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


hile A LOC. = TO ZERO 
33 RESTORE P 

-=1000 

-SBTTL APT PARAMETER BLOCK 


RRR EEEKEEREEKREEKEEKEAKKKKEEREEKKEKEEKEKKEKEKKEKEEEKKEKIOK 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
DEAE IODA III IOI IIS IIIIOIIIIO I IOOIIIUIOR IOI IO 
373SAVE CURRENT LOCATION 
1=24 33SET POWER FAIL TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
~=44 : POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ; ;POINT TO APT HEADER BLOCK 
7 RESET LOCATION COUNTER 
HEHEHE EE ISEB OEE SEIIEIIE TOGO IOI ICICI OUI IOOIOUIIII IIR 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 

$HIBTS: 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: . SMAIL : TADDRESS OF APT MAILBOX (BITS 0-15) 

STSTM: 300 me TIM OF LONGEST TEST 

SPASTM: 300 77RUN TIME IN SECS. OF 1ST PASS ~ 1 UNIT (QUICK VERIFY) 

SUNITM: . 300 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
‘ SETEND-SMAIL/2 77 LENGTH MAILBOX~E TABLE (WORDS) 


oneveevw 


1 
1 
1 
: 
; 
2 
2 
1 
2 
1 
2 


Fn ae hi 


ee ee ee ee te ee ee ae en a ee a 
ed td ss a at os 2s a fl) OO os 
ee ee ee ee, ete 
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-SBTTL COMMON TAGS 


3S 


DDR AERIS IOIIISIUICIIUIIUIUITIEIIIIIDIOIIOIOIIIIE 
*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


SCMTAG: 33START OF COMMON TAGS 


3;CONTAINS THE Ma 44 NUMBER 
53 ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR a 


oe DATA 


ed ed dd 8 Ls VL) 
wwe we wy ww 


3; CONTAINS DATA 

3 sRESERVED--NOT TO BE USED 
3 sAUTOMATIC MODE INDICATOR 
32 INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
7; TTY KBD alee 


TTY KBD BUFFER 
3:TTY PRINTER STATUS REG. ADDRESS 
7;TTY PRINTER BUFFER REG. ADDRESS 
2: CONTAINS NULL CHARACTER FOR FILLS 
CONTAINS # OF 4 ee CHARACTERS woe 
:3 INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
"TERMINAL AVAILABLE'’ FLAG (BIT<07>=0=YES) 
Z:CONTAINS THE ADDRESS FROM 
33 (SREGO) WAS OBTAINED 
3:CONTAINS (($REGAD) +0) 
Soe eTiOn ( ($REGAD) +2) 
TION MARK 


ae ; s CARRIAGE RETURN 
;LINE FEED 


IIIT TITTLE LLL LLL LLL LE LLL 


* SBTTL APT MAILBOX~E TABLE 


LARA EERE REREREREREERERAREREEEEREREA REE RE KERR ERE REE 


3233555555555 5 55552544 
ee a eT 
WWW NNN ee ee oO 


88888888888888s8sssss 
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ee Ne Ne ee es ee ee es ee ee ee ee ee ae ee a ee ee a ee ee ae ee ee eee a 


MAILBOX 
AMSGTY MESSAGE TYPE CODE 
AFATAL ;;FATAL NUMBER 
ATESTN 
APASS ;;PASS COUNT 
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ZVTNA.P11 T MAILBOX-E TABLE 


MACY11 27(654) 


SDEVCT: 
SUNIT: . 


E 2 
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ADEVCT 
AUNIT 


3;DEVICE COUNT 
3731/0 UNIT NUMBER 
MESSAGE ADDRESS 
> MESSAGE LENGTH 
33APT er ae TABLE 
7 ENVIRONMENT BYTE 
> sENVI RONMENT MODE BITS 
;APT SWITCH REGISTER 
3 IUSER SWITCHES 
PU TYPE, ty & 
BITS 15- i CPU T 
11/04=01, 744 /05=02, 11/20=03,11/40=04,11/45=05 
11/70=06, *PDQ=07, Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
: sHIGH ADDRESS.M.S. BYTE 
73MEM. TYPE BLKAI 
MEM.TYPE BYTE <== (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
3HIGH ADDRESS ,BLKA1 
MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF ‘'TYPE’’ ABOVE 
HIGH ADDRESS,.M.S. BYTE 
; ;MEM. TYPE /BLKA2 
7:MEM.LAST ADDRESS ,BLK#2 
: HIGH sw yf .S.BYTE 


ee - TYPE ,BL 

:MEM.LAST ADDRESS ,BLK#3 
zsHIGH ADDRESS .M.S.BYTE 

M. TYPE ,BLK#4 

> :MEM.LAST ADDRESS .BLK&4 
INTERRUPT VECTORA1 ,BUS PRIORITYA#1 
TE INTERRUPT VECTOR#2BUS PRIORITY#2 
3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;;DEVICE MAP 
;;CONTROLLER DESCRIPTION WORD#'1 


SEQ 0017 
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CZVTNA.P11 ERROR POINTER TABLE SEQ 0018 


-SBTTL ERROR POINTER TABLE 


3*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
[*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

: *LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA _IS (SERRPC). 

 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


: 3;POINTS TO THE ERROR MESSAGE 
: ;;POINTS TO THE DATA HEADER 

: 3sPOINTS TO THE DATA 

: ;;POINTS TO THE DATA FORMAT 


SERRTB: 


NO ERRORS ARE REPORTED 
3VT-55 EQUALITIES 
MAXHOZ=236. MAX. HORIZ LINE COUNT 
MAXVRT=512. MAX. VERTICAL LINE COUNT 
ADDL IN=B1T10 
;DISABLE GRAPH MODE 
ENABLE GRAPH MODE 
;NOP 


;LOAD ENABLE REG. 0 
;LOAD ENABLE REG. 1 


;LOAD GRAPH 0 
;LOAD GRAPH 1 


;LOAD CURSOR ON GRAPH ? 
LOAD CURSOR ON GRAPH 1 


;LOAD HORIZONTAL LINE 
;LOAD VERTICAL LINE 


LOAD STARTING COORDINATE 
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-P11 ERROR POINTER TABLE SEQ 0019 


177560 : 177560 zFIRST DEVICE ADDRESS OF SEQUIENTAL DL-11-A/B TYPE DEVIC 
:DEFAULT TO THE CONSOLE ADDRESS 

000000 : @ [LAST DEVICE ADDRESS OF Nt TYPE 

177560 : ;CURRENT DEVICE BUSS ADDRESS 

000000 0 ERROR PATTERN 


CHARACTER FLAG TIMEOUT CONSTANT 
;SUBTEST DELAY CONSTANT 


;DEVICE ADDRESSES 

IN DATA 

OUT STAT 

OUT DATA 

740 = VT55 RATIO 41 = 105 RATIO 


022626 BUSSTR: CMP (SP) +, (SP)+ POP STACK 
104401 Mh EM3 ;REPORT BUS TIMEOUT TO OPER. 


000240 

000240 

012737 002120 : ae STARTING ACCEPTANCE TEST ADDRESS 
SAVES 


000004 MBUSSTR ,@#ERRVEC 
000006 #340, a#ERRVEC+2 


GINA 
002120 RBEGIN: 1 he eee 


G 
001270 BEGIN2: #1 ,WETEST 
#VTISO,RO ;GET POINTER TO DLV11°S 
:GET INITIAL VALUE 
1$: R1, (RO ;LOAD THE ADDRESSES 
#vi0B7+2, -RO SCHECK IF DONE 


GINA BR IF DONE 
(R1)+ ; BUMP abates ADDRESS VALUE 


1$ ;TRY A 
V #1,SAVE4 
RESET 
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CZVTNA.P11 
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INITIALIZE THE COMMON T 


012737 


013746 


012637 


005037 
132737 


001403 
012737 


001100 


177777 


001574 
000176 
000174 
000004 
001200 
000200 
001214 
007532 
013376 
001302 
001246 


001704 
001704 


177356 


001140 
001142 


001213 


001140 


000020 


001254 


SEQ 0020 


-SBTTL INITIALIZE THE COMMON TAGS 
3; CLEAR Ma OS ak TAGS ($CMTAG) AREA 


G,R6 eet eaR LOCATION TO BE CLEARED 
CLR (RE)* ;CLEAR MEMORY LOCATION 
CMP #SWR,R6 ;;DONE? © 
BNE -~6 ;;LOOP BACK IF NO 

2SP 3;SETUP THE STACK POINTER 


MOV AMSTACK 

mein A FEW VECTORS 
#SSCOPE ,a#1OTVEC oe VECTOR FOR SCOPE ROUTINE 

MOV #340, a#IOTVEC+2 ;:LEVEL 7 

MOV #STRAP , AA TRAPVEC 1 TRAP VECTOR FOR TRAP CALLS 

MOV #340, @#TRAPVEC+2;LEVEL 7 

MOV #SPWRDN,@APWRVEC ; ;POWER_FAILURE VECTOR 

MOV #340, aMPWRVEC+2 ;:LEVEL 7 

MOV SENDCT + a 23S TUP END-OF -PROGRAM COUNTER 

MOV LP INITIALIZE THE LOOP ADDRESS FOR SCOPE 
7sSIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘=1'', SETUP FOR A SOF TWARE SWITCH REGISTER. 

MOV @FERRVEC.-(SP) ;;SAVE ERROR VECTOR 
MOV #64, a#ERRVEC TISET UP ERROR VECT 


OR 
MOV #DSWR , SWR 72:SETUP FOR A HARDWARE SWICH REGISTER 
MOV #DDISP,DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1 ,@SWR ee TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 
23D THE HARDWARE SWR IS NOT = -1 

BR 65$ 7'SRANCH IF NO TIMEOUT 

64$: 3} #65$, (SP) [:SET UP FOR TRAP RETURN 

65$: MOV ASWREG , SWR 3;zPOINT TO SOFTWARE SWR 


MOV #DISPREG,DISPLAY 
66$: MOV (SP)+,@M#ERRVEC ;;RESTORE ERROR VECTOR 


CLR SPASS 3-CLEAR PASS COUNT 
BITB WAPTSIZE,SENVM 9 ;;TEST USER SIZE UNDER APT 
BEQ 67$ 33YES,USE NON-APT SWITCH 
673 MOV #SSWREG , SWR TINO.USE APT SWITCH REGISTER 
CLR LOOP 
MOV AMSCOPE ,a# IOTVEC 
TITST: TST SAVES TEST FLAG 
BNE 4$ BR IF NON-ZERO 
a SBASE ,F IRST ;LOAD DEFAULT ADDRESS 
TITLE 
CLR 66$ ;SETUP STARTUP DELAY 
1$: DEC 66$ DELAY 
BNE 1$ 
BR 11$ 


66$: 0 
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CZVTNA.P11 


SLSSBLEALUNSSYVOVS 


> 
RG 


INITIALIZE THE COMMON T 


NOW TEST IF RUNNING ON NON-SWR CPU 
4444 000176 001140 118: CMP ASWREG, SWR ; TEST IF NON-SWITCH REGISTER 
1403 B 2s ;BR IF YES = AND ASK ADDRESS 
177216 _ 


:BR IF CLEARED 
000042 2s: a442 s TEST IF XXDP CHAIN MODE 
3$ ;BR IF YES 


FIRST 


3FIND OUT THE DEVICE ADDRESS 
a$TKB,RO ENSURE CLEAR CHAR. 


(SP)+,RO SAVE THE ADDRESS 
3$ :BR IF ‘CR’ 
RO,FIRST 
#160000 ,F IRST 
11$ :BR_IF INVALID 
aF IRST TEST IF VALID 
FIND OUT THE LAST ADDRESS 


:GET OPR INPUT 
"et ; 


;BR_IF NONE 

SEE IF IT EXISTS 
001256 31T MUST, SAVE IT 
160000 TEST IF IF the VALUE 


001256 - 38: 
000006 000004..',48: 


000006 C a6 
001254 001260 RSTRTA: FIRST, VTNOW LOAD INITIAL DEVICE ADDRESS 


RSTRT: #VTIS.RO :LOAD POINTER 
MO LOAD INPUT STAT 


;LOAD INPUT BUFFER 
;LOAD OUTPUT STAT 


;LOAD OUTPUT BUFFER 
7; JUMP TO STARTING ADDRESS 


SEQ 0021 
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CZVTNA.P11 11 DISPLAY A GROWING HORIZONTAL LINES SEQ 0022 


DDIM AIEEE EIT ISIS IIIOIUIIUIOI III IIR 
s*TEST 1 A DISPLAY A GROWING HORIZONTAL LINES 
SERRA E EERE ERR REE EREREEREER EERE RE REREREEE 
TST1: 

010164 RS AMSG ;DISPLAY HEADER 


014540 #BUF FER ,RO ; THE STARTING ADDRESS 
000033 ;LOAD GRAPHIC ENABLE 


MLDEO, (RO) + ; ENABLE 0 
#81T5'BITO, (RO)+ ; DISPLAY ENABLE 
#LDE1, (RO)+ ; ENABLE 1 

#BIT9IBITO. (RO) + ; DISPLAY HORIZ. LINE 

ASPTRB, (ROS + ; ASPECT RATIO 

#LHVO, (RO) + si LOAD HORIZONTAL LINE 

#ADDL IN, BASE ;LOAD THE STARTING DATA VALUE 

PC , SHUF F 3SHUFFEL THE DATA INTO VT-55 FORMAT 
R1,(RO)+ ; SA MSB BYTE 


BASE 3 DATA 
ADDL IN! MAXHOZ ,BASE [COMPARE TO LAST DATA LINE 
1$ ;LOOP UNTIL DONE 


+ TERM 

sEXECUTE 

;LOAD BUFFER POINTER 
#LNO, (RO) + ; NOP 


iL 
#LHVO, (RO) + SLOAD HORIZONTAL LINE MODE AGAIN 


#0 ,BASE ;LOAD STARTING DATA VALUE TO REMOVE THE LINE 
PC, SHUF F 3 SHUFFEL THE DATA INTO VT=55 FORMAT 

R1,(RO)+ 7SAVE THE LSB MSB BYTE 

BASE UPDATE THE DATA 

#MAXHOZ , BASE ;COMPATE TO LAST DATA LINE 
2s BR TOLL DONE 


(RO) + ;LOAD TERMINATOR 
PC ,.XPRNT :DISPLAY 
PC DELAY 
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1 T2 DISPLAY A GROWING VERTICAL LINES SEQ 0023 


3 FARRAR EERE EREE EERE REE REEREREEREREEEEEEERERREREE 
;#TEST 2 8 DISPLAY A GROWING VERTICAL LINES 
REAR EEEEEEAEAREEEREREEEAREREEEKEEREEREKEKRERERAEERKEKEREEKREEERE 

112: 
004537 010164 JS R5 AMSG :DISPLAY HEADER 
010724 
014540 #BUFFER RO : THE STARTING ADDRESS 
000033 WESC, (RO)+ : "ESC’' COD 

#GRON, (RO? + “LOAD ‘01°’ ENTER CODE 
: ENABLE 0 


#LDEO, (RO)+ 8 
#B1ITS'BITO, (RO)+ ; DISPLAY ENABLE 
#LDE1, (RO) + ;LOAD ENABL 
#BI1TS'BITI, (RO) + ;LOAD DISPLAY VERTICAL LINE 
- (ROS + LOAD NOP 
#LHV1, (RO) + LOAD VERTICAL LINE 
#ADDLIN!MAXVRT=1 BASE LOAD THE STARTING DATA VALUE 
PC, SHUF F :SHUFFEL THE DATA INTO VT-55 FORMAT 
R1, (RO) + ZSAVE THE = oy BYTE 
BASE : UPDATE THE D 
#ADDLIN, BASE + COMPARE TO PAST DATA LINE 
1$ L DONE 


0066 iE XECUTE 
007756 


014540 
000100 LOAD NOP 
000114 ;LOAD VERTIACL LINE MODE AGAIN 


001000 ;LOAD STARTING DATA VALUE TO ty THE LINE 
006400 : SHUF F ;SHUFFEL THE DATA INTO VT-55 FORMA 
;SAVE THE LSB MSB BYTE 
006374 BASE [UPDATE THE DATA 
BNE OLL DONE 


; LOAD ee 


006632 SDISPL 
007756 PC; DELAY 





CZVTNA VT105 — TEST 
CZVTNA.P11 T Cc 


000004 
004537 
010747 


012737 
012700 
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GRAPH 0 DISPLAY A STEPPING HORIZONTAL LINE 


SERA REAARAEREREEREEREREREEEEEEEREREEEREKEEERREREREREREEERRREREREKE 


TRTEST 3 C GRAPH 0 DISPLAY A STEPPING HORIZONTAL LINE 


SER EAAEEEEREERERERAEEREEREEEREEKREREEEEREAREEEEEARERRERRERAREEREEERE 


1813: 
R5 ,AMSG DISPLAY HEADER 


#B81T7,100$ LOAD STARTING BASE LINE 
;LOAD OUTPUT Penat POINTER 


#GRON, 
MLDEO, (RO) + 
#B1TS, ae 


#LDE1, (RO)+ ;LOAD ENABLE 1 
#B1TS!BIT4, (RO)+ CLEAR GRAPH, LINES AND CURSORS 


#LDEO, (RO)+ ;LOAD ENABLE 0 
#6115/B1T1!6170, (RO)+  ;LOAD DISPLAY ENABLE AND GRAPH 0 ON 


#LNO :NOP 
#LSC, (RO)+ LOAD bgt COORD. 


#0,BASE [GET BASE L 

PC. SHUFF :C 

R1.(RO)+ [SAVE COORD. 

#LNO, (RO) + SLOAD NOP 

#LDGO, (RO)+ [LOAD "LOAD GRAPH’ 

00$,BASE SLOAD THE STARTING DATA VALUE 
SSHUFFEL THE DATA INTO VT-55 FORMAT 
[LOAD COUNTER 


SAVE THE LSB MSB BYTE 
[DONE FULL GRAPH 


;LOAD TERMINATOR 
sDISPLAY 
pa DATA VALUE 


7sNEXT TEST 


SEQ 0024 
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Z P11 D GRAPH 1 DISPLAY A STEPPING HORIZONTAL LINE SEQ 0025 


AERIS OSI ISII ISIS I IOI IIIS IIIT ITE 
;#TEST 4 D GRAPH 1 DISPLAY A STEPPING HORIZONTAL LINE 
BEES IIIIAIIIISIAI ISIS III IIIS RIOR ER IRR 
000004 iét4: 
004537 JS RS AMSG ;DISPLAY HEADER 
011017 


#B1T7,100$ s LOAD STARTING BASE LINE 
;LOAD OUTPUT BUFFER POINTER 
SENTER VT55 MODE 

ON, (RO :LOAD ENTER '01°* CODE 

#LDEO, (RO) + ;LOAD ENABLE 0 

BITS, (RO)+ ;DISABLE DISPLAY 

#LDE1, (RO) + ;LOAD ENABLE 1 

WB1TS'B1T4, (RO)+ :CLEAR se NAD CURSORS 


#LDEO, (RO) + zl E 
#6115/B1T2!6170. (RO) + —- DISPLAY ENABLE AND GRAPH 1 ON 


#LNO ; 
#LSC, (RO)+ ;LOAD STARTING COORD. 
BAS GET BASE LINE 
3 CONVERT 
:SAVE COORD. 
NOP 


338 


Nm 
NN 


Oe 2 2 IO 
ee ek ad ad td od 
Nm 

N 

in 

SNS 


2 


4LDGi, (RO) + ;LOAD ‘LOAD GRAPH"' 
100$ ,BASE ;LOAD THE STARTING DATA VALUE 
F ;SHUFFEL THE DATA INTO VT-55 FORMAT 
[LOAD COUNTER 
7SAVE THE LSB MSB BYTE 
GRAPH 


DONE FULL 


;LOAD TERMINATOR 
DISPLAY 


NO 
sZNEXT TEST 
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CZVTNA.P11 5 E GRAPH 0 AND 1 


FERRER ERR RE REE EERE REE EREREERERE EERE EEEEEERERERERER ERE 


s*TEST 5 GRAPH 0 AND 1 


FRA RRERERERERR EEE REER ERE REE EE ERERERREEEREEREREREREEERERERERR 


TSTS: 
R5,AMSG 


R5 ,UPDWN 
B1T1,LDGO 
PC ,.XPRNT 


R5, UPDWN 
B1T2!B1T1,LDG1 


BIT15 !MAXHOZ 


PC ,,XPRNT 
PC DELAY 


s*TEST 6 


;DISPLAY HEADER 


;LOAD DATA PATTERN 
[GRAPH 0 INC. PAT. 


;LOAD DATA PATTERN 
GRAPH 0 DEC. PAT. 


sEXECUTE 


REAR EEEEKEKEEREKEKEEEREEKERAEKEEREEKEEEREREKKEKEEEKEEEK 


GRAPH 0 DISPLAY A STEPPING HISTOGRAM LINE 


J ERR AEREREERREREREREREREREREEREEEEEEEREREREREREEEREEEREEREREERERE 


TST6: 
004537 RS .AMSG 
011125 
#81T7,100$ 


#LDEO, (RO)+ LOAD 
#8115 {BIT3!B1T1!B170, (RO}+ 


LSC, (RO)s 
#0 ,BASE 


#LNO, (RO) + 
apes. (RO) + 
100$ BASE 


PC, SHUFF 
WMAXVRT, 101$ 
R1, (RO) + 
10i$ 

1$ 

PO ORPRNT 
100$ 


2s 
PC,DELAY 
TST? 


DISPLAY HEADER 


;LOAD STARTING BASE LINE 


;LOAD ‘ESC** CODE 
LOAD *01"" — CODE 


ENABLE 
LOAD DISP. ENABLE 
NOP 


[LOAD STARTING COORD. 
:GET BASE LINE 


: CONVER RT 
: SAVE COORD. 


;LOAD 
[LOAD THE STARTING DATA VALUE 


SEQ 0026 


- GRAPH 0, HISTO 1 ON 


= SHUF FEL A INTO VT-55 FORMAT 


[DONE FULL GRAPH 

= LOAD _ 

= CHANGE DATA VALUE 
:NO 


TEST 
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CZVTNA.P11 17 GRAPH 1 DISPLAY A STEPPING HISTOGRAM LINE 


SARA REE RE RERER EERE RRR EREREREREREERERERRERERERE RE 


s*TEST 7 G GRAPH 1 DISPLAY A STEPPING HISTOGRAM LINE 


RARER 


1817: 


a 


R5 ,AMSG ;DISPLAY HEADER 


#B1T7,100$ ;LOAD STARTING BASE LINE 
LOAD THE STARTING ADDRESS 
;LOAD ' ODE 
; LOAD "01°" ENTER CODE 


DEQ, (RO)+ LOAD ENABLE 0 
#8113161 14'B112!B1TO, (Rod ;LOAD DISPLAY ENABLE AND GRAPH 1 ON 
#LNO, (RO) + ;LOAD 
#LSC,(RO)+ ;LOAD STARTING COORD. 
:GET oe LINE 
; CONVERT 
;SAVE COORD. 
sLOAD NOP 
[LOAD "LOAD GRAPH’ 
;LOAD THE STARTING DATA VALUE 
;SHUFFEL THE DATA INTO VT-55 FORMAT 
;LOAD COUNTER 


;SAVE THE LSB MSB BYTE 
DONE FULL GRAPH 


;LOAD TERMINATOR 
DISPLAY 


:NO 
3sNEXT TEST 


whe a A a i ah = 
mM 


ow SS Ss Ss 41 OO O 
Nm 

NN 

WWRNNY 

NNOOO 


Bossa Ss aSS —_ 


100$: 

101$: 0 

LL E RRR EEERERREREREEREEEEK 
s*TEST 10 H HISTOGRAM ON GRAPH 0 AND 1 

LRA REE EKEERERERERERERERRAREKKEEREREKEREKEEEREERERERERE REE 


TST10: SCOPE 
004537 JSR 
011233 HGOA1 
004537 JSR RS ,UPDWN ;LOAD DATA PATTERN 
012 1 -BYTE - hiecamighs conten GRAPH Q INC. PAT. 


000000 - WORD 
004737 JSR PC,XPRNT 


004537 JSR R5 , UPDWN LOAD DATA aN ge 
036 112 -BYTE BIT4:B1T3:B1T2!81T1., LDGi 3 GRAPH 
100354 -WORD BIT15!MA 


004737 0066 JSR PC, XPRNT s EXECUTE 
004737 JSR P” DELAY 


RS ,AMSG :DISPLAY HEADER 





. 3 
CZVTNA VT10S5 ACCEPTANCE TEST MACY11 27(654) 19-SEP-78 11:19 PAGE 12 
CZvT T11 I CURSORS ON GRAPH 0 


NA.P11 


004537 
011311 


004537 
004 


_ 100354 
004737 


004537 
004 
002000 
004737 
004537 
004 


100000 
004737 
004737 


010164 
005610 
102 


006632 
006176 
103 
006632 
006176 
103 


006632 
007756 


RRR RRR RE REEREEREKEERREERKEREERREKKEKEREREEKEE 


S*eTEST 11 


RRR RRR RERE KEKE KEE REREREKREEEEEREEEEKE 


T$111: 


SCOPE 
JSR 
CURGRO 


JSR 
-BYTE 
. WORD 
JSR 
JSR 
-BYTE 
- WORD 
JSR 
JSR 
-BYTE 
. WORD 
JSR 
JSR 


I CURSORS ON GRAPH 0 
R5,AMSG ;DISPLAY HEADER 


R5 , UPD ;LOAD DATA PATTERN 
;GRAPH 0 


WN 
BIT1,LDGO ; 
0 ;DATA TO BE LOADED 
PC ,XPRNT EXECUTE IT 


R5, CURSOR ENABLE CURSORS 
BIT1,LDCO 
ADDLIN 3SC = 0 GRAPH 0 


PC,XPRNT EXECUTE 


R5, CURSOR :REMOVE CURSORS 
BIT1,LDCO TON GRAPH 0 
B1T15 

PC, XPRNT s EXECUTE 

PC DELAY 


LER RARER REE EEE REE MEREREREEEREEKRKEREKEREKEEEE REE 


T*TEST 12 


SRE REE REEREKEEERR AKER EEEREREKKKKEEKKEKKKK 


TST12: 


J CURSORS ON GRAPH 1 
RS ,AMSG ;DISPLAY HEADER 


R5,UPDWN ;LOAD DATA PATTERN 
B1T2,LDG1 ‘GRAPH 1 DECREMENTING PAT. 
B1T15 !MAXHOZ [MAX # 

PC, XPRNT EXECUTE 


RS, CURSOR ENABLE CURSORS 
BIT2,LDC1 
ADDLIN 


PC ,XPRNT s EXECUTE 

R5, CURSOR [REMOVE CURSOR ON GRAPH 1 
B1T2,LDC1 

B1IT15 

PC ,XPRNT s EXECUTE 

PC, DELAY 
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P11 K TEST STARTING COORDINATE ON GRAPH 0 SEQ 0029 


SEAR RRR RR ERR RR IRR IR TTT TT ITT III IIR 
s*TEST 13 K TEST STARTING COORDINATE ON GRAPH 0 
SAAR RRR REE RRR REE REE REERRREREEEERRERRERERERERERERERREREEE 
TST13: 

010164 JSR R5,AMSG ;DISPLAY HEADER 


wn R5 , UPDWN ;LOAD GRAPH 0 DATA 


B1T1,LDGO 
: BIT15 !MAXHOZ 
006632 PC, XPRNT s EXECUTE 


;LOAD SINE COUNTER 
000777 “I, ;LOAD STARTING CORD. 
005537 oe ;LOAD SA FOR FIRST PASS 


BR 
005577 : #SINEND ,RO ;LOAD SINE POINTER 
003762 : -(RO) ,10$ ;LOAD SINE DATA es 
$ BR IF NO MORE DATA 
003764 R1,11$ ;LOAD STARTING COORDINATE 


006014 R5,STCORD ;LOAD DATA INTO BUFFER 
;FOR GRAPH 0 


102 ° BIT1,LDGO ; 
: ° 0 ;DATA_TO BE LOADED 
0 STARTING COORD. 


006632 PC,XPRNT EXECUTE 
R1 :DONE ALL COORD. ? 


1$ 
R3 FINISHED ALL LINES ? 
;BR IF NOT 


3$ 
PC DELAY : 
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CZVTNA.P11 TEST STARTING COORDINATE ON GRAPH 1 


LEAR RRR RRR REE RE ERR RRR ERR RR RRR EERE ERR ERE RE 


s*TEST 14 L TEST STARTING COORDINATE ON GRAPH 1 


TDIASI SISSIES EIEISIIEIISIIEIISEII IIIS ISIS IDIIDIIISIIOIOIOIIIIIOIIII 
TST14: SCOPE 
004537 JSR R5 ,AMSG ;DISPLAY HEADER 
011400 SCORD1 
004537 R5 ,UPDWN ;LOAD GRAPH 0 DATA 
004 112 ; 


B1T2,LDG1 
100354 “WORD BIT15'MAXHOZ 
004737 PC, XPRNT s EXECUTE 


012703 000004 ;LOAD SINE COUNT 
P ;LOAD STARTINC CORD. 
owen ;LOAD SA POINTER 


#SINEND ,RO dan SINE POINTER 

-(RO) ,10$ ;LOAD SINE DATA WORD 

2 IF NO MORE DATA 
R1,11$ LOAD STARTING COORDINATE 


R5,STCORD ;LOAD DATA te BUFFER 
FOR GRAPH 1 


BIT2,LDG1 
0 ;DATA_TO BE LOADED 
0 STARTING COORD. 


PC ,XPRNT EXECUTE 
*) DONE ALL COORD. ? 


R3 ;DONE ALL LINES ? 
3$ ;BR IF NOT 
PC DELAY 





CZVTNA VT105 soe” ~ Thuan TEST 
CZVTNA.P11 T14 


000004 
005737 001200 
001455 
004537 010164 
011627 


014540 
000033 
000061 
000111 
000040 


000042 
000101 
000051 


006632 
007756 


014540 
000033 


MACY11 27(654) 
TEST STARTING COORDINATE ON GRAPH 


’ 6 
19-SEP-78 11:19 — 15 


s 


RRR REE REKEREKEEKEREKEEKEK 


;#TEST 15 M 


GRAPH ASPECT RATIO AND INTERACTIVE TEST ENABLE 


RRR REE REK EKER REKERRREREEKEREREEKEKK 


18115: 


NOW CHANGE TO SQUARE RATIO AND GRAPH 1 


;TEST IF FIRST PASS 


;sBYPASS IF FIRST PASS 


GAITE 
TEST MODE AND RECTANGLE RATIO 
MOV #BUF FER ,RO 


WESC, (RO) + 
#GRON, (RO) + 
MLDE1, (RO)+ 


#LDEO, (RO) + 
#51, (RO)+ 
(RO) + 
PC,XPRNT 
PC,DELAY 


#BUF FER ,RO 
WESC, (RO)+ 


PC DELAY 


;DISPLAY HEADER 


;LOAD OUTPUT POINTER 
;LOAD ENTER GRAPH MODE 


;LOAD 55 RATIO AND TEST ENABLE 


AND NOW ENABLE DISPLAY 
30N GRAPH 0 HISTOGRAM 
;LOAD TERM 

DISPLAY 


;LOAD OUTPUT POINTER 
;LOAD ENTER GRAPH MODE 


ENABLE VT105 RATIO 


AND NOW ENABLE DISPLAY 
3;0N GRPAH 1 HISTOGRAM 
;LOAD TERM 

:DISPLAY 


SEQ 0031 
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CZVTNA.P11 T15 GRAPH ASPECT RATIO AND INTERACTIVE TEST ENABLE SEQ 0032 


DDR ASAI ICICI OIIIOIE TOITISISISI IIIS TT TOT TT TEE 


= *TEST 16 N CHARACTER ASPECT RATIO 


RRA EERE REE ERE 


18116: SCOPE 
sFILL THE SCREEN WITH THE H CHARACTER 


001200 ; TEST IF FIRST PASS 
;sBYPASS IF FIRST PASS 
010164 AMS ;DISPLAY HEADER 
;LOAD COUNT 
OAD _ POINTER 
LF 
CR 
LF 
SCREEN WIDTH 
zk ASCII H 
FINISHED ? 
BR IF NOT 


LOAD TERM 
2$: >XFER TO SCREEN 
R2 FINISHED ALL LINES 
IF NOT 


#12,(RO)+ 
#40.,R1 
ee 


THE HORIZONTAL LINES AT A SQUARE RATIO 


014540 #BUF FER ,RO :LOAD BUFFER POINTER 
000033 WESC, (RO)+ TENABLE CHART MODE 
000061 AGRON, (RO) + ; 

000101 ALDEO, (RO) + SLOAD ENABLE 0 

000041 #B1TS'BITO, (RO) + [LOAD DISPLAY ENABLE 

000111 #LDE1, (RO)+ SLOAD ENABLE 1 

000043 #BITS'BIT1'BITO,(RO)+ ENABLE HORIZ- : WERT LINES 
#B1T5'!BITO, (RO)+ SENSURE 105 RA 

#LHVO, (RO) + cL 

WADDLIN+2,BASE 

PC, SHUF F 

Ri (RO) A 

#24 ,BASE ‘UPDATE BASE LINE VALUE 
#ADDLIN+340,BASE ‘TEST FOR GREATER THAN VALID 
3$ “BR IF OK 


(RO) + ;LOAD TERM 
PC ,XPRNT :XMIT TO THE SCREEN 
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CZVTNA.P11 T16 CHARACTER ASPECT RATIO 


NOW LOAD THE VERTICAL LINES 


014540 #BUFFER,RO 

000033 #ESC, (RO) + 
#GRON, (RO) + 
#LNO, (RO) + 
#LHV1, (RO) + 
#ADDLIN BASE 


SHUF F 
R1,(RO)+ 
#15 ,BASE 
WADDLIN! 1000, »BASE 


(RO) + 
PC ,XPRNT 


PC DELAY 
;NOW CHANGE TO VT55 RATIO 
014540 
000111 


yk P 
#LDE1, (RO)+ 
mit '6i11 ‘8170, (RO) + 


000040 


006632 
007756 PC DELAY 


;LOAD OUTPUT BUFFER POINTER 
;LOAD ESC 
ENTER CHART MODE 

NOP 


zl 

;LOAD VERT LINE INST. 

[LOAD STARTING LINE # 

;SHUFFEL THE DATA 

: SAVE gh 

[UPDATE DATA 

: TEST FOR. LAST DATA LINE 
IF NOT DONE 


“LOAD TERM. 
;SEND TO SCREEN 
:DELAY 


= LOAD POINTER 
LOAD —~_ 1 


SLOAD WOR D1 
;LOAD 55 RATIO 


;LOAD TERM 
:SEND TO SCREEN 
LAY 
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CZVTNA.P11 T16 CHARACTER ASPECT RATIO 


FL RRA AKRERERKEER REE EEEEEEEREEKEEEEEEEEREREKE 
s*TEST 17 0 BASE LINE ON HISTOGRAM 0 
SERRA ARERR EERE REE REE REE ERE RRR REE REE RRRER EE ERER ERE 
TST17: 
004537 J RS ,AMSG sDISPLAY HEADER 
011444 


004537 RS ,UPDWN ;LOAD ACCENDING VECTOR ON 
010 1 ° - eccemmene ;GRAPH 0 


SSTARTING AT U 


004537 J R5,LDBASE ;LOAD MOVING BASE | iNE 
041 042 41,42 


004737 0066 PC .XPRNT :DISPLAY IT 
004737 PC ,DELAY :DELAY 


SAAR RRR REE ERE EERE ERE EEE REE EKER ERE RE 


:*TEST 20 P BASE LINE ON HISTOGRAM 1 


J LARA RRR RRR REE REE REE EEE EERE EEE RREEREEEEEREREERE REE 
TST20: SCOPE 
004537 JSR 
011475 BSLGRI 
JSR R5,UPDWN ;LOAD DECENDING VECTOR ON 
-BYTE BIT4,LDG1 : 1 
“WORD BIT15!MAXHOZ ‘STARTING AT MAX 


JSR R5,LDBASE LOAD MOVING BASE LINE 
-BYTE 41,45 


JSR PC ,.XPRNT DISPLAY IT 
JSR PC,DELAY DELAY 


RS ,AMSG ;DISPLAY HEADER 
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CZVTNA.P11 T20 BASE LINE ON HISTOGRAM 1 SEQ 0035 


SERRE EKA ERERERERERERRE EEE REE EERE 


i*TEST 21 Q STRIP CHART ON 


SLA REAR RER ERR ER EERE EERE REE EREREREEEEEREERERE ER ERK 


TST21: 
;DISPLAY HEADER 


R5 ,UPDWNS ;LOAD ACCENDING GRAPH 
-BYTE ®8I1T3!BIT1,LDGO ;0N GRAPH 
0 STARTING AT MIN. 


. WORD 
NOW CONTINUE LOADING DATA INTO GRAPH 0 
S PC,STRIPG ;LOAD MORE DATA <SINE WAVE> 


PC ,.XPRNT :DISPLAY IT 
PC; DELAY 


SEES IOI ISIS ISIC IOIIIOICIIOIOIIOIIIIOIIIIOI IOI TOI TOT TOT TE 
TRTEST 22 R STRIP CHART ON GRAPH 1 
ett eT titi iiiii tii ii iiei iii iii iit titi 
$122: SCOPE 
JSR R5 AMSG :DISPLAY HEADER 
011554 STCGR1 


S 


JSR R5 ,UPDWN ;LOAD DECENDING GRAPH 
eee Bite Bite. LDG1 30N GRAPH 1 


WOR BIT15 !MAXHOZ STARTING AT MAX. 
NOW CONTINUE LOADING DATA INTO GRAPH 1 
JSR PC, STRIPG ;LOAD MORE DATA <SINE WAVE> 
JSR PC ,XPRNT sDISPLAY IT 
JSR PC DELAY DELAY 


71 
71 
71 
71 
71 
71 


AnFeWrH—oO 


N“N 
= 
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CZVTNA.P11 T23 Ss DUAL STRIPCHART MODE 


5 REAR AREEEEREREEEEREEEEEEREERERERRERREEREEEREEREEEEEERERERERE 


TeTEST 23 S DUAL STRIPCHART MODE 


RRA ERRRRERREREEREREREEAEREEREREEERRREERERRERERERRE 


1$T23: SCOPE 
JSR R5,AMSG :DISPLAY HEADER 
DUSTC 


NOW LOAD DATA IN STRIP CHART MODE 


014540 ;LOAD POINTER 
010302 ;LOAD MESSAGE INTO BUFFER 


BACK UP OVER TERM. 


;LOAD ENABLE 0 
#47, (RO)+ ;DISPLAY ENABLE 
#66, (RO)+ DUAL STRIPCHART ENABLE 


#SINBEG+1,R3 ;LOAD GRAPH 0 POINTER 
#SINBEG+104, RG “LOAD GRAPH 1 POINTER 

#10. , SAVES ‘LOAD # OF WAVES TO BE SEEN 
(R355 ,BASE [GET BYTE OF DATA 


[BR IF DONE 
, SHUF F [CONVERT DATA INTO FORMAT 
#LNO, (RO) + ;LOAD NOP TO ENSURE E 
#LDGO, (RO)+ [LOAD "LOAD GRAPH 0 DATA’ 
R1, (RO)+ [LOAD SHUFFLED DATA 

Ris, BASE GET 8 BYTE OF GRAPH 1 DATA 


IF NO MORE 
PC , SHUF F CONVERT DATA INTO FORMAT 
#LNO, (RO) + LOAD NOP TO ENSURE WORD EDGE 
#LDGi, (RO)+ LOAD ‘LOAD GRAPH 1 DATA’’ 
R1,(RO)+ LOAD SHUFFLED DATA 


1S” 
——— oRS RELOAD GRAPH 1 POINTER 


#S INBEG+1 ,R3 ; RELOAD GRAPH 0 POINTER 
SAVES FINISHED ? 


1$ 
#ESC, (RO)+ s ENSURE TEXT MODE 
#GROF , (RO) + :SO END OF PASS IS OK 
(RO) + 7 TERM 
PC, XPRNT DISPLAY 

JSR PC ,DELAY 

;NOW CLEAR THE GRAPH OFF THE SCREEN 
JSR R5 AMSG ;USE THE HEADER ROUTINE TO 


ZAPITB CLEAR THE SCREEN 
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CZVTNA.P11 END OF PASS ROUTINE 


-SBTTL END OF PASS ROUTINE 


BREESE IRIE III SIISIISISIOIOIIIIDIOIOIIUIIOIOCIOIIOIOIOIIIOI III IE 
: INCREMENT THE PASS NUMBER (S$PASS) 
*TYPE ‘END PASS AXXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO RSTRTA 


SEOP: 

sTEST IF MORE 

7BR IF NONE 

:1S jg LAST ONE 


= TEST NEXT ONE _ 

;LOAD VT55 RATIO 
#81T0,$PASS :TEST IF EVEN 
2s F NOT 


NO 
ASPTRB “MAKE 105 RATIO 


STSTNM 33ZERO THE TEST NUMBER 

SPASS : 2 INCREMENT THE PASS NUMBER 
peace sie ALLOW A NEG. NUMBER 
+ 


SDOAGN seves 
,taerern ; RESTORE COUNTER 


, SENDMG 3: TYPE ‘END PASS #' 
SPASS ,-(SP) 3:SAVE SPASS FOR TYPEOUT 
2360 TYPE=-DECIMAL ASCII WITH SIGN 
, SENULL : TYPE A NULL CHARACTER 
$GET42: a#42,R0 7:GET MONITOR ADDRESS 
$DOAGN : ;BRANCH IF NO + pens 


SENDAD : PC, (RO) 


a(PC)+ 


RSTRTA, 
377 000 $ENULL: :NULL CHARACTER STRING 

042412 ioe <igocl oven PASS’ #/ 

051501 020123 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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CZVTNA.P11 END OF PASS ROUTINE 


765 005366 004 SINBEG: .BYTE 000,003,004,004,005 
766 00 -BYTE 006,007,010,012,014,015,017,021,024,027,032,035 ,040 


043,047,053,056,062,066,073,077,103,110,115,121,126,135 
137,144,151,156,162,167,174,201,206,213,217,223,230,235 
241,245,251,255,261,265,271,274,277,303,305,310,313 
316,317,321,323,324,326,327,330,331,331,331,331,331 


330,327 ,326,325,323,322,320,317,314,312,307 


304 ,301,275,272,267,263,257,253,247,243,237,232,225 


221,214,207,203.176,171,164,157,153,145,140 


134,127,121,115,111,104,077,073,066,063,057,053.047 


043,040,034,031,027.023,021,017,015,013.011,010,007 





CZVTNA VT105 ACCEPTANCE TEST 


CZVTNA.P11 END OF 


012737 
000403 


000050 


MACY11 27(654) 
PASS ROUTINE 


N 3 
19-SEP-78 11:19 PAGE 22-1 


;UP=DOWN SUBROUTINE 


#50 , UPDWNZ 
UPDWNX ’ 


#40, UPDWN 
(R5)+,11$ 
(R5)+,12$ 


0)+ 
#LDEO, (RO)+ 
#B1TS'BITO, (RO) 
11$, (RO)+ 
#1,10$ 
UPDWNZ , (RO) + 
MLSC,(RO)+ 
BASE 
PC, SHUF F 
R1,(RO)+ 
#LNO, (RO) + 
11$+1, (RO)+ 
12$ ,BASE 
P F 


R1,(RO)+ 
12$ 

2s 

BASE 
een eee 


;LOAD 


;LOAD 
:GET GRAPH BIT | INC/DEC WORD 
EO THE POINTER COR 


;LOAD ENABLE 
ZENABLE DISPLAY 
OAD GRAPH ENABLE BIT 


;LOAD NOP 
;LOAD STARTING CORD. 
;LOAD START. CORD. 


;LOAD INTO BUFFER 
;LOAD NOP 


sl 
LOAD LOAD GRAPH X 
LOAD DATA 
; SHUF FEL _ 
;LOAD DAT 
: TEST FOR UP OR DOWN DATA 
BR IF INC. 
DEC. DATA 


; CHANGE DATA 
;TEST FOR LAST 
BR IF NOT 


BR IF NOT 
1% TERMINATOR 


SEQ 0039 





CZVTNA VT105 we Ye TEST 


CZVTNA.P11 


END 0 


SS SP PS Ss Ss 


MACY11 27(654) 


F PASS ROUTINE 
;STARTING CORDINATE SUBROUTINE 
006146 STCORD: MOV (R5)+,11$ 
006150 MOV (R5)+,12$ 
006144 MOV (R5)+,10$ 
MOV RO,-(SP) 
MOV R1,-(SP) 
014540 MOV WBUFFER,RO 
33 MOVB  #ESC,(RO)+ 
1 MOVB sof ON. (RO) + 
000101 MOVB #LDEO.(RO)+ 
000041 MOVB #113 'B110, (RO) 
006146 BISB  ~—«-11$, (RO) + 
0001 MOVB _—— #LNO, (RO) + 
00011 MOVB  #LSC.(RO)+ 
006144 006374 MOV 10$ ,BASE 
006400 JSR PC, SHUF F 
MOV R1, (RO) + 
000100 MOVB _— #LNO, (RO) + 
00614 MOVB _«-11$+1, (RO)+ 
006150 006374 4$: MOV 12$,BASE 
0064 1$: JSR PC, SHUF F 
MC. R1, (RO) + 
CL8B ~—S (RO) 
May (SP)+,R1 
MOV (SP) +,RO 
RTS R5 
10$- 0 
114: 9 
12$: 0 
061 SETBAS: .BYTE ESC,GRON 
040 042 -BYTE LDEO,40,42 
060 043 -BYTE LNO,60,43 
040 043 .BYTE LDEO,40,43 
060 043 BYTE LNO,60,43 
040 040 .BYTE LSC.40.40 
-RYTE _LNO 
BYTE 
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SEQ 0040 


GET GRAPH BIT AND INC/DEC WORD 
GET STARTING CORD. 
iGET . WORD 

7 SAVE 

:SAVE R1 

LOAD THE POINTER 
LOAD ‘ESCAPE’ 

ENABLE GRAPHIC MODE 
[LOAD ENABLE 0 

ENABLE DISPLAY 

;LOAD GRAPH ENABLE BIT 
LOAD NOP 

;LOAD STARTING CORD. 
;LOAD START. CORD. 


;LOAD INTO BUFFER 
AD NOP 


7SHUFFEL DATA 
[LOAD DATA 
;LOAD TERMINATOR 


sEXIT 


ENABLE GRAPH MODE 

ENABLE BASE 0 TO BE LOADED 
;LOAD BASE 

ENABLE BASE 1 TO BE LOADED 


LOAD BASE 1 
:LOAD STARTING CORD. TO 0 


CZVTNA VT105 ACCEPTANCE TEST 
CZVTNA.P11 END OF PASS ROUTINE 


012537 


006374 


006374 


006374 
003000 006374 


MACY11 27(654) 


CURSOR: MOV 
MOV 


C 4 
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CURSOR SUBROUTINE 
; THE FIRST ARG. LOW BYTE IS AN ie OR LDC1"' 
HIGH BYTE IS BIT 1 OR BIT 2 TO ENABLE CURSOR 
; THE SECOND ARG. = BIT 15 WILL REMOVE CURSORS 
= BIT 10 WILL ADD CURSORS 


(R5)+,11$ 
(R5)+,12$ 


GET ARG. WORD 

GET ARG. WORD 

; LOAD THE POINTER 
*ESCAPE' 


TENABLE DISPLAY 
;LOAD GRAPH ENABLE BIT 
[LOAD ENABLE 


;MAKE PROPER CURSOR ENABLE DATA BYTE 


LDEO, (RO)+ 
#81T5'BITO, (RO) 
11$, (RO)+ 
#LDE1, (RO) + 


eo 


R1 
4B! tT age 


LOAD NOP 
;LOAD STARTING CORD. 
;LOAD START. CORD. 


;LOAD INTO BUFFER 
; NOP 


;LOAD 
;LOAD ‘LOAD CURSOR ON GRAPH X"’ 
;LOAD CURSOR POSITION DATA 
;SHUFFEL DATA 

;LOAD DATA 

ee ee OR DOWN DATA 


MLSC,(RO)+ 
SE 


BA 

PC, SHUF F 
R1,(RO)+ 
#LNO, (RO) + 
11$+1, (RO)+ 
12$ ,BASE 
PC, SHUFF 
R1, (RO) + 
12$ 


BASE 

#177000 ,BASE 

4$ 

1$ 

BASE CHANGE DATA 
MADDL IN! MAXVRT , BASE ; TEST FOR LAST 
1$ ; F NOT 


(RO) *LOAD TERMINATOR 
R5 EXIT 
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CZVTNA.P11 END OF PASS ROUTINE 


; SUBROUTINE TO SHUFFEL DATA INTO GRAPHIC DATA BYTE FORMAT 
013702 006374 SHUFF : BASE ,R2 ;LOAD VALUE TO BE SHUFFELED 
006376 MO R2,BASE1 
177740 #177740 BASE 


R1 

R1,BASE1+1 ;RELOAD R1 
#170340,BASE1 ;MASK 

#20040,BASE1 CONVERT TO ASCII 
#BIT SE 


” 3gtery :BR IF NOT SET 
WBIT12,BASE1 :SET BIT 
1$: BASE1,R1 


RTS PC sEXIT 
; SUBROUTINE TO LOAD VARIABLE BASE LINE 
LDBASE: MOVB #ESC, (RO)+ sLOAD ESC 
MO ;LOAD GRAPH MODE 
[LOAD ENABLE 0 
. [LOAD ENABLE 0 DATA BiTS 
(R5)+, (RO)+ [LOAD ENABLE 0 2ND WORD DATA BITS 
5037 BASE CLEAR BASE VALUE 
112720 MOVB #LNO, (RO) + ;ENSURE WORD ADDR. 


;NOW RAISE THE BASE LINE 
004737 1$: JSR P ; CONVERT BASE any TO DATA 
;SAVE BASE LINE VALUE 

[UPDATE TO NEXT BASE LINE VALUE 
iTEST IF DONE 


° 


sCONVERT BASE VALUE INTO DATA 
:SAVE BASE LINE VALUE 

;UPDATE TO PREVIOUS BASE LINE VALUE 
;BR IF NOT DONE 

;LOAD TERM 


S R5 sEXIT 

: TO LOAD SINE WAVE TO THE END OF CURRENT BUFFER 

STRIPG: CLR BASE PRIME THE BASE VALUE 

MOV #3,R4 ;LOAD # OF SINE WAVES SEEN 

1$: #SINBEG+1 ,R3 ;LOAD SINE WAVE POINTER 

2$: (R3)+,BASE GET A SINE WAVE DATA BYTE 
3$ 7BR IF END OF SINE WAVE DATA 
PC , SHUF F CONVERT BASE INTO DATA 
awe : LOAD a 3 DATA = BUFFER 


AND DO MORE DAT 
R4 FINISHED ALL SINE WAVES 
1$ BR IF NOT 
(RO) LOAD TERM 
PC XIT 
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CZVTNA.P11 END OF PASS ROUTINE 


eer DISPLAY SUBROUTINE 
XPRNT: RO,-(SP) 
MO R1,-(SP) 
R2,-(SP) 
ANE SC sHOUSEKEEP 
NOEXIT 
MOV #BUFFER,RO ;SETUP BUFFER POINTER 
172412 : avTos TEST READY 
BPL 1$ 
001270 WF TEST TEST IF TESTER MODE 
2$ ;BR IF NOT 
001170 : aT LINE 0 READY 
001172 : LINE 1 READY 
BPL 61$ 
001174 : sLINE 2 READY 
BPL $ 
001176 : LINE 3 READY 
BPL 3 
001200 : i LINE 4 READY 
001202 : ;LINE 5 READY 
L 65$ 
001204 : : LINE 6 READY 
001206 : LINE 7 READY 
BP 67$ 


(RO)+,R1 sGET A CHAR. 
14$ ;BR IF TERM 
#33,R1 ; TEST FOR ESC 
4$ ;BR IF NOT 
sSET SOFT FLAG 
;CLEAR SOFT FLAG 
;LOAD CHAR 
sTEST IF TESTER MODE 
;BR IF NOT 


88 


uf and and and eed 
wmesssssss 


LINE 
INPUT LINE 0 


So 

No aa 

NNNNNNNNNUIW 
VNNNNNNNNNON 


aad aad aad and ad ce cc on ed ed 
AWnSWNH—oO 
nk aed ae and oe ed ed eed ed ed 


3 
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-P11 END OF PASS ROUTINE 


105777 000776 avTisi : TEST LINE 
100442 71$ 
105777 001000 :TEST LINE 
100442 72$ 
105777 001002 i TEST LINE 
10044 BM 
001004 s TEST LINE 
BMI 74$ 
001006 :TEST LINE 
BMI 5 
001010 i TEST LINE 
BM 7 
001012 ; TEST LINE 
77$ 


172122 sTEST I 
;BR IF 


1$ CLEARED 
007534 or sTEST IF ‘ESC'' WAS JUST SENT 


001124 ;CLEAR EXPECTED DATA 
001272 on , [GET CONSOLE ADDRESS 


007476 14$: 16$ 
010064 70$: :GET LINE 


0 STATUS 
010074 71$: GET LINE 1 STATUS 
010104 728: GET LINE 2 STATUS 
010114 73$: m0 na GET LINE 3 STATUS 
010124 74$: WI GET LINE 4 STATUS 
010134 75$: Wi GET LINE 5 STATUS 
010144 76$: VTi GET LINE 6 STATUS 
7 


010154 77$: GET LINE 7 STATUS 
BR 10$ 


;WAIT FOR A KEYBOARD FLAG = EXIT IF NONE 


001264 010276 6$: TIMEQ, TIME1 
010300 TIME2 LOAD DELAY 
7$: i 3 FLAG 


BM 0$ I 
010300 TIME2 ; DELAY 
BNE 7$ 


;TEST FOR ‘'CTRG G'' ON CONSOLE TTY 
010276 [pe' :DELAY 


BN 
006660 13$: 1$ TRY AGAIN 
; INPUT FLAG SET - FIND OUT WHAT CHARACTER IT WAS 





CZVTNA VT105 ACCEPTANCE TEST 
CZVTNA.P11 END OF 


1071 007316 010201 
005721 
1073 007322 011137 001126 


1074 007326 042737 177600 
1075 007334 Becrne 000021 


5&4 007536 
1078 007350 005737 007540 


080 000460 

1081 007360 022737 000023 

082 007366 001006 

1083 007370 105237 007536 

1084 007374 ak 104 000021 
005037 001124 

1087 007410 105777 171524 
100336 

1089 007416 020237 001272 

090 001333 

1091 007424 022737 000057 

1093 007434 022737 000134 

094 1323 


000001 
1096 007452 012737 010426 
007460 000430 


1097 
007532 
007466 012737 010503 


000422 
007476 012737 000001 
007504 012737 000021 
007512 105737 007536 


33 
Ss 
5 
S 


3S SS Ss SS SS SS Ss Ss SS SS SS SS SS 
el ed ed ad = 
SELEGRESSS 
So 
— 
Nm 
) 
Nm 


nt ax an ead 
Who 
s 
“N 
Ww 
& 


MACY11 27(654) 


PASS ROUTINE 


001126 


001124 


001126 
001126 
007532 
007552 
007552 


007540 
001124 


10$: 


11$: 


12$: 


15$: 


16$: 


19-SEP-78 

MOV R2,R1 

TST tad ¥ 

MOV (R1) ,$8DD 

BIC 4177600, SBDDAT 
CMP #XON, SBDDAT 
BNE 11$ 

CLR NOEXIT 

TST TERM 

BEQ 13$ 

BR 17$ 

CMP #XOFF , S$BDDAT 
BNE 12$ 

INCB NOEXIT 

MOV #XON,$GDDAT 
BR 6 

CLR $GDDAT 

TSTB @SWR 

BPL 13$ 

CMP R2,VTIS 

BNE 13$ 

CMP #'/ ,SBDDAT 
BEQ 

CMP #'\ ,SBDDAT 
BNE 13$ 

MOV #1 ,LOOP 
MOV #MQ0 ,F INDTA 
BR FINDOT 

CLR LOOP 

MOV #MQ1,F INDTA 
BR F INDOT 

MOV #1, TERM 
MOV #XON, SGDDAT 
TSTB NOEXIT 

BNE 6$ 

MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTS PC 

0 

0 


G 4 
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COPY R2 
BUMP VALUE 
sREAD CHAR 


MASK 
;TEST FOR X ON 


ram IF No IF apatespaecsics WAS SET 


[BR IF OMY ONE 
Lae OFF 


BR I NO 
;SET ‘NO EXIT UNTIL X-ON'' RCVD 
LOAD te VALUE 


[WAIT FOR X-ON 
LOAD EXPECTED 
TEST SwWR 


‘BR IF CLEARED 
:TEST IF NON-TESTER 
;BR IF TESTER 

; COMPARE 

3;2BR IF EQUAL 

; COMPARE 

;BR IF NOT 

sSET SOFT FLAG 
;SETUP MESSAGE 
;SETUP MESSAGE 

;SET ‘‘TERMINATOR HAS BEEN FOUND'* FLAG 
;LOAD EXPECTED 


;TEST IF ALLOWED TO LEAVE ROUTINE ? 
;BR IF NOT ALLOWED 


sEXIT 


SEQ 0045 
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CZ P11 END OF PASS ROUTINE 


sDETERMINE WHAT THE OPR. WANTS TO DO NOW 
012706 001100 FINDOT: MOV #STACK, SP 
004537 010164 JSR R5,AMSG 
010503 FINDTA: 
004737 010226 J PC,GETCHR 
000770 F INDOT 
105777 171510 1$: ayTos 
171504 RO, aVTOB 
177640 #177640,RO 
000007 MPR a RO FOR CTRL G 
000003 a3 FOR CTRL C 
000101 FOR NUMBER 
000124 yf FOR OTHERS 
F INDOT 
177740 #177740 ,RO : 0-37 
RO. STSTNM : THAT TEST # 
DSPCH(RO) IF VALID 
F INDOT :BR IF NOT 
DSPCH(RO) ,SLPADR SLOAD RETURN ADDRESS 
DSPCH(RO) . $LPERR [LOAD ERROR LOOP ADDRESS 
@DSPCH(RO) :GO TO THAT TEST 
TREAD SWITCHES 
F INDOT 


3LSI-11 ODT ENTRY 
F INDOT 


TST23+2 
0 
0 


SIFARAVTIS SSVKAGRUW AS SSLSEGRASLESBLEGKUVLSVSVRGRONLSSarVeG §F 


VT 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
1i 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
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9 007754 000000 0 


Oo 


;PROGRAM DELAY ROUTINE 
013737 001266 010060 DELAY: SUBTST,10$ LOAD COUNT 
010062 C 11$ 
001270 TEST IF W.F. MODE 
2$ ;BR IF NOT 
010060 ; CHANGE DELAY TIMER 
010060 
BNE 2s BR _IF SOME BITS ARE SET 
000001 010060 #1,10$ ENSURE SOME DELAY 
010000 171114 e . TEST SR 
3$ BR IF SET 
001200 FIRST PASS ? 
$ SBR IF YES 
171232 CHECK FOR INPUT FLAG 
3$ FLAG 


BR IF 
010062 ;DELAY 
BNE 7BR IF NOT DONE 
010060 


; DELAY 
sEXIT 


1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
- 
1 
1 
1 
1 


me ee ee et ee ed ed ed ed od wd 
RBRAVLSSELRARATASIAVSARAVNIS 
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CZVTNA.P11 END OF PASS ROUTINE 


882 § 


TESTER DEVICE BUS ADDRESSES 
VTISO: ;LINE 0 ADDRESSES 


SeleeRoRes 


Le 
ee Dl ce ed ed ed eed eed 
WONAULSWH—O 


MMNMNNNNNNoNofnenofory 


INS) 


010142 
010144 
010146 
010150 
010152 


010154 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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CZVTNA.P11 END OF PASS ROUTINE 


HEADER SUBROUTINE FOR TERMINAL UNDER TEST 


012537 010216 AMSG: (R5)+, iy 2GET POINTER 
012700 014540 #BUFFER, 

113737 001304 011752 ASPTRB, SAPITA 

004537 010302 SR R5.MTO8 ; BUFFER 

011743 ZCLEAR SCREEN AND oi ASPECT RATIO 
105740 -(RO) BACK OVER TERMINATOR 

004537 010302 4 RS .MTOB :MOVE TO BUFFER 


000000 : 
004737 006632 PC,.XPRNT DISPLAY IT 
010224 000205 RTS R5 sEXIT 


; SUBROUTINE TO GET A CHARACTER FROM THE TERMINAL 


010226 013737 001264 010276 GETCHR: MOV TIMEO,TIME1 ;LOAD TIME COUNTER 
010234 005037 010300 CLR TIME2 


010240 105777 171026 1$: avTIs TEST INPUT STATUS 

010244 100005 BP 2s BR IF CLEARED 
171022 avTIB,RO ;READ A CHAR 
000002 —" _. RETURN 


010300 : [pee DELAY 
010276 TIME1 sFINISHED ? 
1$ ;LOOP TILL TIME EXPIRED 
PC TEX IT 
010276 TIME1: 
010300 TIME2: 0O 
sMOVE TO THE OUTPUT BUFFER 
010302 MTOB: MOV (R5)+ ;LOAD DEST. 
010304 112120 


1$: MOVB (R1)*, fro) [LOAD BYTE 
1$ BR UNTIL DONE 


010306 BNE 
010310 RTS R5 
-SBTTL ASCII MESSAGES 
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CZVTNA.P11 ASCII MESSAGES SEQ 0050 


1282 ASCII MESSAGES ‘ 
1283 010312 031033 5015 PWRMSG: .ASCIZ <33><6°2><15><12>/' POWER FAIL OCCURRED’ ‘'/<15><12> 
010320 043040 


33, $e ENSURE EXIT FROM GRAPH MODE 
33." SENTER ANSCII 

33, 133, 77 ,63,154 ENSURE 80 COLUMN 
33,133,77,62,154 ENSURE ASCII 


053132 <15><15><12>/CZVTNA VT105 ACCEPTANCE TEST/<15><12> 


051505 
047440 : ° /LOOP ON TEST PATTERN LETTER (A THRU S) ? = / 
052123 
042524 
052105 
040450 
020125 
036440 


O95 eSe 3 . /START AT TEST PATTERN LETTER (A THRU S) ? = 


WHATO: .ASCIZ /DEVICE STARTING ADDRESS ? = / 


012 012 
051111 052123 
012 012 
051501 020124 
053116 6101 : . /INVALID BUS ADDRESS, TRY AGAIN/ 
041040 


053517 DAHL: . /GROWING HORIZ. LINE/ 
047510 
010714 046040 
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CZVTNA.P11 ASCII MESSAGES SEQ 0051 


010722 000105 
1298 44 6 053517 DAVL:  .ASCIZ /GROWING VERT. LINE/ 


1299 104 0295 SHLO: .ASCIZ /DISPLAY STEPPING HORIZ. LINE ON GRAPH 0/ 
-ASCIZ /DISPLAY STEPPING HORIZ. LINE ON GRAPH 1/ 


/DISPLAY DATA ON GRAPH 0 AND 1/ 
/STEPPING HISTOGRAM LINE ON GRAPH 0/ 


/STEPPING HISTOGRAM LINE ON GRAPH 1/ 


ot ot od = oo os 


PROPS SVISLESMORS 


/HISTOGRAM ON GRAPH 0 AND 1/ 


—— = 
NMMNofrnfnr 
So 


BR 


051117 -ASCIZ /CURSORS ON GRAPH 0/ 
043440 
3004 


Baa 
a-oOns 


051125 047523 eASCIZ /CURSORS ON GRAPH 1/ 
047440 020116 
050101 020110 


051101 get -ASCIZ /STARTING COORDINATE TEST ON GRAPH 0/ 
052101 
052123 


Rae 


01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


WWW W 
Pas 
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CZVTNA.P11 ASCII MESSAGES 


000060 
1308 2 /STARTING COORDINATE TEST ON GRAPH 1/ 
1440 047517 


/BASE LINE ON HISTOGRAM 0/ 


020105 os /BASE LINE ON HISTOGRAM 1/ 
047440 
052123 
020115 


: .ASCIZ /STRIPCHART ON GRAPH 0/ 
050101 


hye: : .ASCIZ /STRIPCHART ON GRAPH 1/ 
050101 


051440 : .ASCIZ /DUAL STRIPCHART MODE/ 


-ASCIZ /GRAPH ASPECT RATIO AND INTERACTIVE ENABLE TEST/ 


/ASPECT RATIO WITH CHARACTERS/ 


ESC.GRON :ENTER GRAPHIC 

LDEO, 40,40 ‘DISABLE THE SCREEN 
LDE1.60 ;CLEAR GRAPH DAT 

40 LOAD ASPECT RATIO 

ESC. CENTER TEXT MODE 

ESC. of° 9 12,154 SENSURE ASCII MODE 


ESC,°H ;HOME THE SCREEN 
ESC,"J SERASE THE SCREEN 
0 ; TERM. 


—aa So 
WWAWG 
-—— oo 


SEES 88 


000 
011770 





On 
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CZVTNA.P11 ASCII MESSAGES 


1326 


SEQ 0053 
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CZVTNA.P11 TTY INPUT ROUTINE SEQ 0054 


-SBTTL TTY INPUT ROUTINE 


JAAR ARR REEERRREREREREREREEREERERREEREREREERREREREREREKERREREEE 


-ENABL LSB 


LRRRRARERRERREERRERREERERRERREERRERRERERRERRERERREREKERERRERER ERE 
+ #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
;*ROUTINE IS re FROM THE TRAP HANDLER, AND WILL 
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SwITCH REGISTER TRAP CALL 
i SWHEN OPERATING IN Try FLAG MODE. 
011770 022737 000176 001140 $CKSWR: CMP AMSWREG , SWR 2315S THE SOFT=SWR SELECTED? 
1074 "BNE ; BRANCH IF NO 
167140 2 CHAR THERE ? 
15$ 331F NO, DON'T WAIT AROUND 
167134 as TISAVE THE CHAR 
177600 P +s STRIP-OFF THE ASCII 
000007 S IT A CONTROL G? 
1 ZNO, RETURN TO USER 
001134 MPB 7sARE WE RUNNING IN AUTO-MODE? 
15$ 3 ;BRANCH IF YES 


012515 T ,SCNTLG 3zECHO THE CONTROL-G (*G) 
012522 2 , SMSWR +: TYPE CURRENT CONTENTS 
000176 MO SWREG,- (SP) 4h pe SWREG FOR TYPEOUT 
TYPE=-OCTAL ASCII(ALL DIGITS) 
012533 SNEW PROMPT FOR NEW SWR 
: (SP) SCCLEAR COUNTER 

CL -(SP) 33 THE NEW SWR 

167056 : asTKS 77CHAR THERE? 
7$ z71F NOT TRY AGAIN 


lolejlejlelo) 
par Der Goer Peer Ps 
PoMoNnonor 
—_—— 2 
— 
RVERS 


5 
4 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


lelelelelelelelelejelo) 
oth cad ced aed ad cd ced aed ed ed ed 
MOMPNDNNNINNNNNY 
ye eve fewer 
NAW 

SVSVSARVYRRS 


167052 
177600 


000025 
012510 
000006 


000015 
000004 
000002 
000006 
001167 


001135 000001 


000100 


a@$TKB,-(SP) 
#°C177, (SP) 


(SP) ,425 
10$ 
eSCNTLU 


@ 


19$ 


(SP) ,415 
16$ 

4(SP) 

11$ 

a ee 


e 


. SCRLF 
|” tae 
#100,a$TKS 


3sPICK UP CHAR 
MAKE IT 7-BIT ASCII 


3z1S IT A_CONTROL-U? 

; BRANCH IF NOT 

i YES, ECHO CONTROL-U (“U) 
; IGNORE PREVIOUS INPUT 

ZILET'S TRY IT AGAIN 


ri1S IT A <CR>? 

CH IF NO 
77YES, IS IT THE FIRST CHAR? 
53 CH IF YES 


33 AND <LF> 
7 7RE-ENABLE TTY KBD INTERRUPTS? 
‘ IBRANCH IF NOT 

: :REENABLE TTY KBD INTERRUPTS 
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-P11 Y INPUT ROUTINE SEQ 0055 


012172 014006 16$: PC,$TYPEC 
000060 (SP) ,460 


18$ 
000067 | laa 


;BRANCH IF 
000060 #60, (SP)+ : STRIP-OFF ASCII 
000002 2(SP) 71S THIS THE FIRST CHAR 
; BRANCH IF YES 
NO, SHIFT PRESENT 
HAR OVER 


000002 17$: 2(SP) 
177776 aati eat 


BR . 
001166 18$: ,SQUES 3sTYPE ?<CR><LF> 
012250 000720 BR 20$ 3sSIMULATE CONTROL-U 
-DSABL LSB 


RRR REEREREKKKEEEREEERREKEREEEEEKEKKEEREEEKKEKKEEEEKE 


i STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


RDCHR 33 INPUT A SINGLE CHARACTER FROM THE TTY 
RETURN HERE 3;CHARACTER IS ON THE STACK 
3sWITH PARITY BIT STRIPPED OFF 


012252 : (SP) ,-(SP) ;zPUSH DOWN THE PC 

16666 4 MO 4(SP) ,2(SP) :3SAVE THE PS 

a$TkS “WAIT FOR 

1$ tA CHARACTER 
@$TKB,4 (SP) +:READ THE TTY 
#*C(<177>,4(SP) ::GET RID OF JUNK IF ANY 
4(SP) ,#2 ::1S IT A CONTROL-S? 
3$ ; ;BRANCH IF NO 
a$TkS ;:WAIT FOR A CHARACTER 
2$ [LOOP UNTIL ITS THERE 
a$TkKB,-(SP) 33GET CHARACTER 
#°(177, (SP) MAKE Iv 7-BIT ASCII 
(SP) +,#21 *:1S IT A CONTROL-Q? 
2$ t:1F NOT DISCARD IT 
1$ EYES. RESUME 
4(SP) ,#140 ‘IS IT UPPER CASE? 
4 + BRANCH IF YES 
4 (SP) ,#175 i318 TA SPECIAL CHAR? 


4 
012362 #40,4(SP) 
012370 00000 4$: 


LEAR REE RARER ERE RRR REREKREAEREREEERAERERRERREKKERRER 


;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


3*CALL: 

: RDLIN 32 INPUT A STRING FROM THE TTY 

RETURN HERE ;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
77 TERMINATOR WILL BE A BYTE OF ALL O'S 


1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 





CZVTNA VT105 ACCEPTANCE TEST 19-SEP-78 


TTY INPUT ROUTINE 


MACY11 27(654) 


R3,-(SP) 
A$TTYIN,R3 
* ‘heaped acasen 


(SP)+, (R3) 
#177, (R3) 
3$ 

,SQUES 

1$ 

(R3) ,9$ 
#15, (R3)+ 
2$ 

-1(R3) 
-$LF 

(SP) +,R3 


a 
11:19 PAGE 31-2 


i3SAVE R3 
:3GET ADDRESS 
ioe iF * es 
360 READ +O aapechea FROM THE TTY 


SICLEAR THE BUFFER AND LOOP 
;sECHO THE CHARACTER 


+ CHECK FOR RETURN 
LOOP IF NOT RETURN 
ZICLEAR RETURN (THE 15) 
3s TYPE A LINE FEED 

3 RESTORE R3 


(SP) ,=(SP) + ADJUST THE STACK AND PUT ADDRESS OF THE 
4(SP) ,2(SP) ee FIRST ASCII CHARACTER ON IT 
#$TTYIN,4(SP) 


9$: 0 
‘ 0 
STTYIN: 


SCNTLU: 
SCNTLG: 


000004 
012500 
7 RETURN 

7; STORAGE FOR ASCII CHAR. TO TYPE 
33 TERMINATOR 

8. ; RESERVE 8 BYTES FOR TTY INPUT 
/*U/<15><12> sz CONTROL ‘U"' 


000012 /*G/<15><12> 3: CONTROL ‘'G’' 
020122 $MSWR <15><12>/SWR = 


053505 SMNEW: .ASCIZ / NEW = / 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


DISA IAAI IOISIUOIIIEI IIIS SIUIOIIIDIOIIOIUIOIDISIIOITIOIOIOIIOITIIOITIDIDIIITI TOI TOI 
:*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. 

:*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘‘?'' WILL BE TYPED 
:*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
:*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


> *CALL 

3* RDOCT 3:°°AD AN OCTAL NUMBER 

3* RETURN HERE 3;2LOW ORDER BITS ARE ON TOP OF THE STACK 
;@ ;ZHIGH ORDER BITS ARE IN $HIOCT 


(SP) ,-(SP) ;sPROVIDE SPACE FOR THE 
4(SP) ,2(SP) 33 INPUT NUMBER 

RO,~(SP) : PUSH RO ON STACK 
R1,-(SP) 

R2,-(SP) 


3 CIZ LINE 
MO (SP)+,RO 3:GET ore OF 1ST CHARACTER 
012672 RO,5$ 3:AND SAVE IT 
R1 3:CLEAR DATA WORD 


ek kk a a a ok od ot ot od 2 2 I I I 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


012540 


Owwvwvevvuvevuvuvevuvuvuvuuvuvuvvuuvuvuvvuvrvwwvww 


x 


012544 $RDOCT: 
MO 


000004 000002 


Fe tae hie te te ha Eel a, ne a, i ee, 


~ 
WWW 2 2 Ss Ss SS SS SY 
ee Ne Ne ee ae oe ee ee woe ee 


012572 
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CZVTNA.P11 READ AN OCTAL NUMBER FROM THE T SEQ 0057 


012574 R2 
2$: (RO) +,--(SP) ziPICKUP THIS CHARACTER 
3$ ziIF ZERO GET OUT 
:iMAKE SURE THIS CHARACTER 
:z1S AN OCTAL DIGIT 


ii*2 
33*4 
338 
R2 
177770 #*C7, (SP) :zSTRIP THE ASCII JUNK 
phe cs :zADD IN THIS DIGIT 


; LOOP 
(SP) + 73CLEAN TERMINATOR FROM STACK 
R1,12(SP) 33SAVE THE RESULT 


3POP STACK INTO R2 
POP STACK INTO R1 
(SP)+,RO 33POP STACK INTO RO 


ce URN 
4$: (SP) + 7sCLEAN PARTIAL FROM STACK 
(RO) 33SET A TERMINATOR 
33 TYPE UP THRU THE BAD CHAR. 


0 
,SQUES i ie **cR'' & "9" 
1$ ETRY 


BR AGAIN 
$SHIOCT: .WORD 0 s;HIGH ORDER BITS GO HERE 
.SBTTL APT COMMUNICATIONS ROUTINE 


DUISIS AISA ISIS IOIDISIISIIEISII OIC IOIOIIOIOI IOI IOI IOI TOI ITO TTT TOIT TOIT TOT TE 
112737 000001 013150 : #1,$FFLG 32TQ REPORT FATAL ERROR 
112737 000001 013146 : #1, $MFLG 3:TO TYPE A MESSAGE 
000403 BR SATYC 
112737 000001 013150 2 #1,$FFLG 33TO ONLY REPORT FATAL ERROR 
RO,-(SP) 33PUSH RO ON STACK 
R1,-(SP) ;3PUSH R1 ON STACK 
013146 a Sh ae TYPE A MESSAGE? 
000001 001212 a #APTENV , SENV : OPERATING UNDER APT? 
001213 J ethene rmaameed : SHOULD Rt y MESSAGES? 
a4 (SP) ,RO GET MESSAGE ADDR. 
000004 #2,4(SP) ; ;BUMP RETURN ADDR. 
hit +3 SEE IF DONE W/ LAST XMISSION? 


TIF 
RO, SMSGAD :PUT ADDR IN MAILBOX 
(RO) + ::FIND END OF MESSAGE 


013010 001376 48 
013012 $MSGAD ,RO ;;SUB START OF MESSAGE 


BPP LLL LLP LLL Le Lh OO fe 
ae el ed a nd nd od wd I 


000012 
012702 


5$: 


ed oe 8 od 
di i dd 


3 


( 
( 
( 
( 
( 
( 
3 
( 


—_— 





ek ak a a a a a A) WW SS SS Ss Ss Ss Ss SS SA WW SS SS WW St OS 
NN i SS SS SS Sw eee ee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
3 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


CZVTNA VT105 a com TEST 
CZVTNA.P11 


MACY11 27(654) 


T COMMUNICATIONS ROUTINE 


006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 


105737 


001172 
013060 
000004 


001174 
000004 


SMFLG: 
$LFLG: 
SFFLG: 


19=SEP=-78 


RO 
RO, $MSGLGT 
ws 


a4 (SP) ,4$ 
PC,$TYPE 
0 


SFFLG 
12 


11$ 

@4(SP) ,SFATAL 
#2,4(SP) 
$MSGTYPE 
SFFLG 

SLFLG 


SMFLG 
(SP)+,R1 
(SP)+,RO 
PC 

0 


0 
0 


G 5 : 
11:19 PAGE 31-4 


33GET MESSAGE LNGTH IN WORDS 
33PUT LENGTH IN MAILBOX 
73TELL APT TO TAKE MSG. 


:zPUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

PUSH 199776 ON STACK 

‘CALL TYPE MACRO 


: SHOULD REPORT FATAL ERROR? 
Py e NOT: BR 


3 | RUNNING UNDER APT? 
; NOT: BR 
: SFINISHED i MESSAGE ? 


IF NO 

GET ERROR u 
; ;BUMP RETURN ADDR. 

:;TELL APT TO TAKE ERROR 
73CLEAR FATAL FLAG 
:sCLEAR LOG FLAG 
3;CLEAR MESSAGE FLAG 
33POP STACK INTO R1 
33POP STACK INTO RO 


3 RETURN 
7zMESSG. FLAG 
3:LOG FLAG 
ZiFATAL FLAG 


SUP=040 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SRE EREEKEEKREEEREKEEKEEKEERERKEEREKKEEREEKEEEKKEKKEEK 


ee 


3*THIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 5-DIGIT 


3*SIGNED DECIMAL (ASCII) NUMBE 
: *NUMBER IS 


POSITI 


R AND TYPE IT. DEPENDING ON WHETHER THE 
VE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


. 
° 
-* 
° 


STYPDS: 
MO 


;*REPLACED WITH SPACES. 
*CALL: 


NUM ,-(SP) 


RO,-(SP) 


;sPUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


33PUSH RO ON STACK 
CK 

SISET BLANK SWITCH AND SIGN 
NUMBE R 


3;GET THE INPUT 
;:BR IF INPUT IS POS. 
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CZVTNA.P11 ONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0059 


013176 RS ::MAKE THE BINARY NUMBER POS. 

000055 000001 #*=,1(5P) SMAKE THE ASCII NUMBER NEG. 

1$: RO ::ZERO THE CONSTANTS INDEX 
013366 ASDBLK ,R3 ::SETUP THE OUTPUT POINTER 
000040 #’ ,(R3)+ +:SET THE FIRST CHARACTER TO A BLANK 
: R *:CLEAR THE BCD NUMBER 
013356 $DTBL(RO),R1 *:GET THE CONSTANT 
R1,R5 +:FORM THIS BCD DIGIT 


;7BR IF DONE 
7; INCREASE THE BCD DIGIT BY 1 


ee BACK THE CONSTANT 
;CHECK IF BCD DIGIT=0 
FALL THROUGH IF 0 
S STILL DOING LEADING 0'S? 
;;BR IF YES 
33MSD? 
6$ ;;BR IF NO 
177777 ‘ + YES==SET THE SIGN 
6 #°0O,R2 sMAKE THE BCD DIGIT ASCII 
ziMAKE IT A SPACE IF NOT ALREADY A DIGIT 
T THIS CHARACTER IN THE OUTPUT BUFFER 
Se usT INCREMENT ING 
sCHECK THE TABLE INDEX 
2260 DO THE NEXT DIGIT 


E TO ASCII 
Z7WAS THE LSD THE FIRST NON-ZERO? 
177777 177776 “T(SP),-2(R3) 2: YES--SET THE SIGN FOR TYPING 
9$: (R3) *:SET THE TERMINATOR 
(SP)+,R5 *:POP STACK INTO R5 
(SP) +_.R3 t:POP STACK INTO R3 
(SP)+.R2 ::POP STACK INTO R2 
(SP)+.R1 +:POP STACK INTO R1 
(SP)+-RO ;3POP STACK INTO RO 
$DBLK ‘NOW TYPE THE NUMBER 
3(SP) ,4(SP) ‘ADJUST THE STACK 


(SP) +, (SP) 
;;RETURN TO USER 


te te ee ee ee et 
ee Ne Ne Nee ee es 
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1333 
1334 013376 032777 004000 165534 MSCOPE: BIT #SW11,QSWR ‘On ie IF FORCED MODE SW 11 IS SET 
013404 BEQ 1$ ; oo 


1335 
1336 013406 000040 001304 #40,ASPTRB PRIME THE RATIO 
1337 030777 002000 165516 #suid, aSwWR STEST ia FORCE VT55 


1338 BR IF 
001304 7 FORCE 108 RATIO 
165504 1$: SWR sTEST BIT 7 
BP NOT SET 
007532 ooP : TEST LOOP 
BNE SOVER :SET LOOP ON TEST 
-SBTTL SCOPE HANDLER ROUTINE 


ARERR ERRATA EER EERE RREEERERE EERE REE RERRERRR EERE ERE 
*STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
+ *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
+ SAND LOAD THE ERRO® FLAG (SERFLG) INTO DISPLAY<15:08> 
+ * THE SWITCH GPTIONS PROVIDED BY THIS ROUTINE ARE: 
+ *SW14= 1 LOOP ON TEST 
+ *SWO8=1 LOOP ON TEST IN SWR<7:0> 
> *CALL 
7* 3; SCOPE=I0T 


SSCOPE : 
Cc 


Ww 
W 
wo 


1 
1 
: 
1 
1 
3 


EFERE 
BRWN=0 


3;TEST FOR CHANGE IN SOFT-SWR 


SWR 
165462 1$: #B1T14,aSWR ;LOOP ON PRESENT TEST? 
BNE SOVER «YES IF SW14=1 
;AMRAASTART OF CODE FOR THE XOR TESTERAMane 
SXTSTR: BR 6$ se IF RUNNING ON THE ‘XOR'* TESTER CHANGE 
THIS INSTRUCTION TO A ‘NOP** (NOP=240) 
@#ERRVEC ,~ (SP) ZISAVE THE CONTENTS OF THE ERROR VECTOR 
oaveie OUT 


a#17706 XOR? 
(SP) +, @#ERRVEC 3 IRESTORE THE ERROR yr 
BR $SSVLAD :GO TO THE NEXT TEST 
5$: (SP) +, (SP)+ T:CLEAR THE STACK AFTER A TIME OUT 
(SP) +, @#ERRVEC : sRESTORE THE ERROR VECTOR 
BR SOV LOOP ON THE PRESENT TEST 
6$:;M#AAMEND OF CODE FOR THE XOR’ TESTERMANNA 
165414 BIT rly g -@SWR : LOOP > SPEC. TEST? 


:BR IF a 
001102 MPB @SWR,STSTNM :30N NRIGHT TEST? SWR<7 :0> 
SOVER YES 


2 BR 
3 STSTNM ‘COUNT TEST NUMBERS 
001176 MO STSTNM,STESTN ISET TEST NUMBER IN APT MAILBOX 
(SP) ,SLPADR 


992 2 2 SS So 


ee tt et ate tet eee 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
c 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


ee ee em ee ee ed ed etd od od ot od 


C SERFLG 
165354 : $TSTNM,@DISPLAY SIDISPLAY TEST NUMBER 
013566 MOV SLPADR , (SP) 3:FUDGE RETURN ADDRESS 
013572 000002 ieFIXES PS 
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CZVTNA.P11 SCOPE HANDLER ROUTINE 
-SBTTL TYPE ROUTINE 


RRR REE REE RE RREEEEE ERE RRR REE ERE RRR RE EREREERERERERER REE 


{ #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 


(1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
1) 
(1) 
(1) 
1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


000002 
000001 


000100 


013644 
012712 


000040 


014052 
001156 
001154 
000001 


3*THE ROUTINE WILL INSERT A NUMBER 


;*NOTE1: 


:*NOTE2: 
s*NOTES: 


:* 


*CAL 
:*1) “USING A TRAP INSTRUCTION 
TYPE »MESADR 


TYPE 


NULL CHARACTERS AFTER A LINE 


OF FEED. 
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


STPFLG 
1$ 


3$ 

RO,- ms , 
@2(SP) ,RO 
PAPTENY. SENV 


3;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


21S | A TERMINAL? 


IF 
AL NEE IF NO TERMINAL 


: RO 
SIGET ADDRESS OF ASCIZ STRING 
; MOD 


62$ ee 
—_— ;;SPOOL MESSA 


RO,61$ 
PC, SATY3 


MAPTCSUP , SENVM 


(RO) +,=(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 
HHT , (SP) 
#CRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2$ 


PC ,STYPEC 
| eae (SP)+ 


2 
$NULL ,~ (SP) 
1(SP) 


+ 3NO, GO CHECK FOR CONSOLE 
23S TUP MESSAGE ADDRESS FOR APT 
; MESSAGE TO APT 


; AP 

3zYES,SKIP TYPE OUT 

: sPUSH CHARACTER TO BE a ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

:31F ar ae POP IT OFF THE STACK 


STORE RO 
7 ADJUST RETURN PC 
; sRETURN 
3 BRANCH IF <HT> 
3zBRANCH IF NOT <CRLF> 


;POP <CR><LF> EQUIV 
SE TYPE A CR AND LF 


3;CLEAR CHARACTER COUNT 
32GET NEXT CHARACTER 
4 TYPE THIS CHARACTER 
S IT TIME FOR An CHARS . ? 
‘TF NO GO GET NEXT CHAR. 
:iGET # OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 
7:DOES A NULL NEED TO BE TYPED? 
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013746 002770 6$ 7 BR IF Po ta POP THE NULL OFF OF STACK 
004737 PC,STYPEC £260 TYPE A NULL 

105337 SCHARCNT DO NOT COUNT AS A COUNT 

000770 BR 7$ 


;HORIZONTAL TAB PROCESSOR 


112716 000040 8$: #’ (SP) 7 REPLACE TAB WITH SPACE 
737 9$: PC, $TYPEC 77; TYPE A SPACE 
014052 #7, $CHARCNT 7 BRANCH IF NOT AT 
BNE 9$ 37 TAB STOP 
(SP) + 7zPOP SPACE OFF STACK 
BR 2s ::GET NEXT CHARACTER 
165136 STYPEC: is a$TPs ::WAIT UNTIL PRINTER IS READY 


STYPEC 
000002 165130 2(SP) ,a$TPB ;LOAD CHAR TO BE TYPED INTO DATA REG. 
000015 000002 = HHS oe A CARRIAGE RETURN? 


BNE 1 H IF NO 
014052 a 3: YES"—CLEAR CHARACTER COUNT 
000012 1$: 2318 a ih Wes. LINE FEED? 


INCB ; HARACTER 
000000 SCHARCNT : . WORD :UCHARACTER COUNT STORAGE 
014054 STYPEX: RTS 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


LEAR RRR EERE AER REA RRR RERR REE REREE RARER ER ER 

>*THIS ROUTINE IS USED TO CHANGE A 16-B81T BINARY NUMBER TO A 6-DIGIT 

: *OCTAL (ASCII) NUMBER AND TYPE IT 

ht peat porte HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


NUM ,-(SP) ;NUMBER TO BE TYPED 
tICALL FOR TYPEOUT 
N :zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
M 77M=1 OR O 
321=TYPE LEADING ZEROS 
3: 0=SUPPRESS LEADING ZEROS 
** 


:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
j wST¥POS OR $TYPOC 
** . 


” MOV NUM, -(SP) ZNUMBER TO BE T/PED 
TYPON tTCALL FOR TYPEOUT 


-* 
—e HERE FOR TYPEOUT OF A 16 BIT NUMBER 
** Hd 


NUM, = (SP) ; ;NUMBER TO BE TYPED 
Z:CALL FOR TYPEOUT 


014056 017646 000000 YPOS: a(SP) ,-(SP) 3zPICKUP THE MODE 
014062 116637 000001 014301 MO 1(SP);$OF ILL 3;LOAD ZERO FILL SWITCH 
014070 112637 014303 MO (SP)+;$OMODE+1 ;NUMBER OF DIGITS TO TYPE 


Cp an ae et a et ae ht a a i a a a a ae 
ee el el le et ee ed ed ed ed wd od od 


Ne eh hh hd ee a ae a a _ _ aet et 


34 
1 
(2 


tan a tie hae Lt, he at Se ee, a i i ee, ee, at Be, hat a i, 
ee ee a = oe st = os SS es SS es Ss ss SS ss SS SS 
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-P11 BINARY TO OCTAL (ASCII) AND TYPE 


000002 3 ADJUST RETURN ADDRESS 
STYPON 


BR 7 
000001 014301 $TYPOC: 33SET THE ZERO FILL SWITCH 
000006 014303 MO #6, SOMODE +1 seer FOR SIX(6) DIGITS 
000005 014300 S$TYPON: “2 7 SET on ITERATION COUNT 


ee V 

7SAVE R4 

33 SAVE_RS5S 

33:GET THE NUMBER OF DIGITS TO TYPE 


te he FOR MAX. ALLOWED 
4h a IT USE 
2 3GET THE PERO FILL SWITCH 

HE INPUT NUMBER 


ROTATE MSB INTO ' 
; 60 DO MS8 
FORM THIS DIGIT 


: GET LSB OF THIS DIGIT 
014302 $SOMOD :ETYPE THIS DIGIT? 
BPL F NO 


7$ :BR_I 
177770 ‘s . 7:GET RID OF JUNK 


sDON*T SUPPRESS ANY Or . ~ O'S 
7 IMAKE eT DIGIT ASC’. 
E AS st we NOT ALREADY 
SAVE F NG 


OR TYPI 
2260 TYPE THIS DIGIT 
;:COUNT BY 1 
2 BR IF MORE TO DO 


IF DONE 
: 2 INSURE LAST bist ISN'T A BLANK 
DO T DIGIT 


7 RESTORE R3 
73SET THE STACK FOR RETURNING 


;RETURN 
8$: 3ST ORAGE : OR aac DIGIT 
FOR TYPE ROUT 
SOCNT: 


SOFILL: .BYTE :3ZERO FILL SWITCH 
SOMODE : D > ZNUMBER OF DIGITS TO TYPE 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
i 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


eee ee ee ek ee ee ee ee ee ee ee ee ek ed ed ek ed ed ed od od od od 
ee ee ee tit ete et et tte 
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CZVTNA.P11 TRAP DECODER 


-SBTTL TRAP DECODER 


{RRRRERERRRRER ERE R RRR EERE RE RRR ERR EERE R EERE RRR RRR RE 
TRTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP*’ INSTRUCTION 
[AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: RO,-(SP) 

2(SP) ,RO 

-(RO) ; «BACK Y 
(RO) ,RO :3GET RIGHT BYTE OF TRAP 
R sPOSITION FOR INDEXING 
STRPAD(RO),RO :; INDEX TO TABLE 
RO 32GO TO ROUTINE 


zzTHIS IS USE TO HANDLE THE ‘‘GETPRI'’ MACRO 

$TRAP2: MOV (SP) ,=(SP) 7;sMOVE THE PC DOWN 
MOV 4(SP) ,2(SP) :sMOVE THE PSW DOWN 
RTI 7 sRESTORE THE PSW 

-SBTTL TRAP TABLE 


3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


Fn tam hn an a a a ea ee a a a a 
ee el a et ee ed ed eed ed ed 
er Ne eles ee ee eae ae 


014326 $TRPAD: i 


STRAP2 

32 CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

3: CALL=TYPOC TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
:;CALL=TYPOS TYPE OCTAL NUMBER (NO LEADING ZEROS) 
;;CALL=TYPON TYPE OCTAL NUMBER (AS PER LAST CALL) 
013152 3-CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 


012040 33 CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 


011770 3 -CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
; = CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
:2CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
;-CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
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-SBTTL POWER DOWN AND UP ROUTINES 


FARRAR ERAAEREEEREREREREREEEEEEREREERERERREREKEERERRERRERRER ARERR 
“POWER DOWN ROUT INE 
012737 014532 $PWRDN: #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
00034 2 #340, QrPURVEC +2 zsPRIO: 7 
RO,=(SP) PUSH RO ON STACK 


our ae ON STACK 
014440 #SPWRUP ,A#PWRVEC ;;SET UP VECTOR 
-~2 7 HANG UP 


LRAARAAARAEERERARERERERERREEREREREEEEREEREREREEEREEREERREEREREERE EE 
“POWER UP ROUTINE 
014532 $PWRUP: MOV #SILLUP, Q4PURVEC siSET «for FAST DOWN 
siMALT LOOP FOR THE TTY 
1$: WAIT FOR THE INC 
=:0F WORD 


7ZzPOP STACK INTO RO 
#SPWRDN , A#PWRVEC <gSET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 ::PRIO:7 
;sRE EPORT THE POWER FAILURE 
SPWRMG : PWRMSG POWER FAIL MESSAGE POINTER 
(PC) +, (SP) ; RESTART AT RBEGIN 
SPWRAD : ¥ D RBEGIN : RESTART ADDRESS 


R 
SILLUP: 33THE POWER UP SEQUENCE WAS STARTED 
BR 72 3; BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 33PUT THE SP HERE 


QV et et et ot td a 


aah 
CONOUBWevevwrvuvuvuvv 


START OF BUFFER SPACE 
014540 000000 BUFFER: 0 
- END 


WWAWAAAI WAR ARR RRR Re 


—— SS 
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CROSS REFERENCE TABLE 


214 252 
662 677 


1001* 1003* 


224 


19-SEP-78 


293 
693 


1033 


763* 


B 6 
11:19 PAGE 35-1 


333 350 383 
706 719 760 


11114 


1243 1336* 1339s 
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CZVTNA.P11 CROSS REFERENCE TABLE 


Ba%3 


nnonnnhnnnnn 
Oo 


oa 


134 
134 
134 
134 
134 
134 
134 
134 
134 
134 
134 
18 

134 
134 
134 
134 
134 
134 
134 
134 
134 
134 
16 

134 
134 
134 
134 
134 


DAHL 010700 
DAVL 010724 
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DDISP = 177570 
007756 


001142 
174 


D 6 
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248 
648 


286 
658 


11484 


1344* 


326 
674 


348 
689 
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CZVTNA.P11 CROSS REFERENCE TABLE 


885* 90* 7 1108* 1119* 1192s 
1328* 1330* 1347* 

177772 

000 


nnnnnnnnnnnn 


SESS SSeS SSS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
8 
1 


1331 
912 914 
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1049* 1051* 1053* 1060 1071 1089 1105* 1329* 1331* 1352* 
134 517* 534* 


R3- =%000003 3 485*  502* 733-736 751* 952% 953 1328% 1331* 1248* 
* 

R4 — =%000004 134 © 734% 742 749% 951% 958% 1348% 1352 

RS =%000005 134 175" «= -.214% 252% = 93x = 333k 338k 843% = 350k «= 383% 2 415* 419% = 24 
433x 437% = G2 4GBe «| 455x459 = 464 = 469% = 476k = 80® «= 494% = 508* = S12 
526* 557% 593% 662% 666% 670% 6778 681% 685% 693" 697% 706% 710* 
719* 725% 760% 784 785 815* 823 824 825 847* 869 870 902 
932 933 948% 1117* 1241 1264" 1247* 12508 1275 1278% 1331% 1348* 13528 

R60 = 134 = «112s 

R7?  =%000007 134 

SAVES 001302 85H 95k = 109e = 115 735* 752s 

SCORDO 011334 477-1307 

SCORD1 011400 509 13084 

SETBAS 006152 726 8524 

SHGLO 011125 351 13024 

SHGL1 011170 384 13034 

SHLO =: 010747 253 ©1299 

SHL1. 011017 294 13008 

SHUFF 006400 188 202 227 241 270 275 310 315 363 368 396 = 401 622 
640 738 744 796 801 837 B42 885 890 9114 «= 9379433 955 

SINBEG 005366 733 734 749 751 7654 952 

SINEND 005577 487 489 519 521 7778 

SP =%000006 134 88 112* 140 151 763* 826% 827% 845 846 965* 966% 967% 
1105, 110611071116 1261* 1328% 1329" 13308 1331% 1344% 1347" 1348* 1350* 

* 

STACK = 001100 1 112 1116 

STCGRO 011526 694 13114 

STCGR1 011554 707 ~—s«1312# 

STCORD 14 494 526 8234 

STKLMT= 177774 1 

STRIPG 006570 701 714 9504 

SUBTST 001266 748 1176 

SWR 001140 294 112% 128 130 1087 1182 1328% 1334 1337 1340 1344 1352s 

SWREG 000176 19# 112 128 1328 

SwO = 000001 134 

5wOO = 000001 134 

SwO1 = 000002 134 

SwO2 = 000004 134 

SwO3 = 000010 134 

Sw04 = 000020 134 

SwOS = 000040 134 

SwO6 = 000100 134 

SwO7 = 000200 134 

SwO8 = 000400 134 

SwO9 = 001000 134 

SW1 = 2 134 

Sw10 = 002000 134 © 1337 

Sw11 = 004000 134 © 1334 

SW12 = 010000 134 

Sw13 = 020000 134 

SW14 = 040000 134 

Sw15 = 100000 134 

SW2 = 000004 134 
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CZVTNA.P11 CROSS REFERENCE TABLE SEQ 0071 


eeeeeee 


aad aed od od ed 
Sees 
COU 
_-- © 


wo 
z= 


as 


11 
11 
1164 
1165 
1166 
11 


Ww 


146 148 763 1328 1329 1331 1347 1348 


010126 
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CZVTNA.P11 CROSS REFERENCE TABLE SEQ 0072 


1186 1258 


—-Scooooooo-> 


fo 0U, LU oP oP or or ew 
WW ONVIW Iw 


1 
, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


347 374 407 422 428 
515 531 570 584 606 
9654 1249 


001126 1073* 1074* 1075 
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1329 1347 


1084* 1086* 1102* 


1329 1347 
1140* 1344* 





CZVTNA VT105 ACCEPTANCE TEST 


CZVTNA.P11 


a4 
ur 
—_ 

" 
= 


2A = kkener 
= keene 


SSA 
SSAVR6 014536 


SSWREG 001214 
000000 


298 112 
1330* 
1330* 
1330* 
1347 
2134 2514 
6614 6764 
13444 
112* 555 
13524 
1328 1329 
1350 
1350 
1350 
1341 13444 
112 763 
12 29 
475 507 
112 
1344* 
138 1328 
1328* 
12 1744 


1344 


292H 
6924 


591 


1347 


1328 


112 
554 


2134 
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CROSS REFERENCE TABLE 


1347 

3324 3494 3824 4144 
7054 7184 

763* 1184 

1344 


174 213 251 292 
588 661 676 692 


2514 287 2924 327 


432n 


332 
705 


3324 


4544 


349 
718 


3494 


475# 


382 
763 


378 


5074 


414 
1344 


3824 


SEQ 0074 


5544 


432 
1352 


411 
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4544 4754 5074 5544 556 6764 6924 7054 


1136* 1344* 


1350 


U 
014542 Ld 234 264 274 13254 13284 1329 
1344 1347 1352 


eeeeee 


001000 
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763 
254 295 336 352 385 417 435 457 €95 


Be 


vi 
Fas ss se we Fo es o 


Leelee se ee ee eee ee eY 


— 
¥S 


—_ 
—W 


8 

134 
504 
134 
134 
134 
134 
134 
134 
134 


eeey 


wexSsBoouueeesree 


——3 


_— = N= 
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7# 
on 
8a 
8a 
on 
84 
84 
84 
84 
od 
84 
on 
7# 
7# 
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168 0 62 642 763 1261 1328 1329 
1137 1350 
1179 










CZVTNA V 
CZVTNA.P1 


; Rese 154 
2) 226 


wr" 733 

”~ 2 argue 878 
at 967 
095 

1255 

MOVB 179 
223 

272 

357 

490 

582 

637 

754 

834 

929 

1013 

NEG 1331 
NOP 90 
RESET 110 
ROL 1329 
ROR 284 
RTI 112 
RTS 815 
SUB 1330 
TRAP 1350 
TST 107 
"38 

TSTB 136 
1923 

1240 

ASCII 29 
-ASCIZ 29 
1302 

.BL_KB 1328 
-BLKW 1331 
BYTE 29 
667 

773 

1286 

1348 

~DSABL 1328 
~ENABL 4 
~END 1358 
~ENDC 12 
349 

692 

-EQUIV 13 
EVEN 29 


= 

QP. pcceprance TEST  MACY11 27(654) 
CROSS REFERENCE TABLE 

4 


159 161 
228 236 
314 316 
492 403 
596 601 
747 749 
825 826 
889 891 
1036 1039 
099 1101 
1275 1328 
181 182 
225 237 
299 300 
359 360 
562 563 
598 599 
653 654 
763 787 
839 840 
931 932 
1124 1136 
763 992 
375 408 
1329 1331 
902 927 
132 145 
1184 1328 
972 976 
1027 1029 
1283 1288 
1304 1305 
344 420 
682 686 
775 776 
1292 1294 

19 26 
382 411 
718 763 
860 1325 


19-SEP-78 


B 7 
11:19 PAGE 35-14 


a 
CZVTNA VT105 ACCEPTANCE TEST  MACY11 27(654) 19-SEP-78 11:19 PAGE 35-15 
CZVTNA.P11 CROSS REFERENCE TABLE 


19 26 
382 411 
763 


= 
Ww 
BNSSEn 


— — —" 
ws Ws Ws 
VRONVYRLWOSSR— 


ERRORS DETECTED: 0 





D 7 
CZVTNA VT105 ACCEPTANCE TEST MACY11 27(654) 19-SEP-78 11:19 PAGE 35-16 
CZVTNA.P11 SEQ 0081 


*CZVTNA, CZVTNA/CRE=CZVTNA 
RUN-TIME: 23 9 1 SECONDS 
CORE USED: 25K 


